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DESKTOP PLAN 
APPLE TAX PLANNER 
APPLE FORTRAN 

MONTY PLAYS MONOPOLY [disk] 
GAMMON GAMBLER 
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Apple II 

48K 

FREE 


PANASONIC COLOR MONITOR 395.1 
CENTRONICS 737 795.1 
INTERFACE CABLE for 737 25. 
MICROSOFT "RAMCARD" 167. 
NEC GREEN PHOSPHOR MONITOR 229. 
VERSAWRITER - Graphics System 219. 


FREE WITH EACH PURCHASE - $400 IN LAS VEGAS VALUES 



- with purchase of 10 meg. CORVUS at Regular Price - 
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WORD PROCESSING COMBO! 

EasyWriter with a 
Videx Board only $450.00 


UK 


Westwood 

Computer 

Systems 




XYMEX 
1000 

with Quadra- Pitch 10, 
12, 15 Pitch and 
Proportional Spacing 


BASF DISKS 
$25.95 for 10 

APPLE DISK DRIVE 
Reg. $525 now $459.95 

LANGUAGE SYSTEM 
$425.95 

APPLE /// 128k 
$3995.00 

QUME PRINTER 5/45 
$2495.00 


Telephone Orders Only 


(213) 475-5467 
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Jits: software 

Who needs it? 



\budo. 


For small amounts of information a pencil and paper 
filing system works great. But when you want to keep track 
of hundreds of pieces of information this system 
has limitations. Recording information is slow, 
locating what you want can be impossible, and the 
system is so time consuming it keeps you from 
filing information you know is valuable. 

With PFS software and an APPLE* 
computer you have a powerful alternative. 

Using the concept of designing a form on 
the screen, PFS lets you create a file of 
information on any subject you wish 
without programming. You can catalog 
your stereo record collection, 35mm 
slides, magazine articles, daily ex- 
penses, or your club’s membership list. 

Using PFS at work you can make better 
decisions by creating files on inventory, customers, or on 
ders and accessing them in seconds. 

To use PFS you simply design a form on the screen 
by typing the names of the items you want to store in- 
formation about. Once the form is created you tab from 

PFS is a trademark of Software Publishing Corporation. 



requires a 48K, 16'Sector disc based 
APPLE II system 


item to item and fill in the information. This can be a 
single piece of data or several pages of text. Up to 1000 
forms can be stored on a diskette. 

Looking up information is just as easy. PFS 
can search for a number, a single data item, or a 
word within a page of text. All forms that match 
are displayed on the screen. You can browse 
through each one and change, delete, ex- 
pand, or print it. PFS even has a print for- 
matter that lets you create mailing labels. 

PFS software is different. It is not a 
specialized application package or a 
complex programmer oriented data 
base manager. It is a personal filing sys- 
tem that lets you communicate with 
the computer using meaningful every- 
day concepts to rapidly create files on 
any subject matter you require. 

PFS is available through your local dealers. If they don’t 
carry it, have them give us a call at (415) 368- 
7598 or write to us at Software Publishing Corp- 
oration, P.O. Box 50575, Palo Alto, CA 94303. 

* APPLE is a registered trademark of Apple Computer, Inc. 




Software Riblishing Corporation 




4.4 MEGABYTES 


FOR YOUR APPLE 



Double-Sided, Double-Density 8-Inch Drive 
Capability is Here ... Now! 


The new LOBO DRIVES Model LCA-22 Double 
Density Floppy Disk Controller has been 
specifically designed to match your APPLE® to 
the new double-sided, double-density 8-inch floppy 
disk drives. Now, you can add up to four 1.1 
Megabyte drives (4.4 Megabytes total) and realize 
all the power and potential of your APPLE 
computer. 

Completely Software transparent, the Model 
LCA-22 will plug into any chassis slot. You are no 
longer restricted to slot 7. And, the Model LCA-22 
is fully compatible with 3.2. (3.3 DOS systems, 
PASCAL will be available soon.) 

LOBO’s new LCA-22 Disk Controller and full line 
of field-proven, high-reliability disk drives (all 
LOBO products come with a one year, 100% 
parts/labor warranty) are available at computer 
retail stores nationwide. Stop in and see a 
demonstration at your local dealer today. 



INTERNATIONAL 


LOBO DRIVES INT’L 

354 South Fairview Ave. 
Goleta, CA 93117 
(805) 683-1576 


I’m looking to expand my APPLE. Please 
send me more information on: 


□ Model LCA-22 Disk 
Controller 

□ Floppy Disk Drives 

□ 5V4-inch 

□ 8-inch 


Name _ 
Address 
City 


□ Fixed Disk Drives 

□ 5V4-inch 

□ 8-inch 

□ 14-inch 


State . 


Zip 


Phone 


(area code) 
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In the past months the IAC has 
been receiving many phone calls 
and letters and the main question 
asked is "What can the IAC do for 
my club?" 

As a member club, you receive 
APNOTES which Apple Computer, 
other manufacturers and members 
give the IAC for distribution. They 
contain information on hardware/ 
software modifications/fixs and any 
other data that can help the end 


user with his/her Apple. As of this 
time, the IAC has sent over 140 
pages of APNOTES. 

As a member club, you also re- 
ceive software disks that have been 
donated by clubs as far away as 
Japan and Australia, and as close as 
Apple Computer itself. So far there 
have been five official disks re- 
leased by the IAC to its members, 
and we hope to have one a month 
starting in May. If you are a new 


member club, the IAC does not 

end back issues of the software, 
jut commences sending the cur- 
rent disk at the time of joining. The 
software is given FREE to our mem- 
ber clubs. 

The IAC publishes the "Apple Or- 
chard", which is made available at a 
bulk discount rate to our member 
clubs. You can also individually 
subscribe. An additional monthly 
bulletin is also sent to our member 
clubs to inform them of late news 
and developments. 

The IAC has committees dealing 
with all manner of special interests. 
You can communicate with these 
committees by writing and making 
use of their experts. 

In the near future we hope to 
establish a WATS [800] line to 
answer some of your questions. 
There is in the planning stage a 
"scholarship" fund, and we will be 
video taping the seminars given at 
our annual meeting so we can send 
them to you for viewing. As the di- 
rectors from each region receive 
your inputs we, the IAC, will act on 
them. 

Now back to the question "What 
can the IAC do for my club?" I 
would like to change that to read 
"What can you as a member club 
contribute to help the IAC?" We 
need programs to distribute to the 
members, we need articles for the 
Orchard, we need your input. 
The IAC is a volunteer organization 
and without INPUT there is no 
OUTPUT. 

Ken Silverman , 

President , 

International Apple Core 


INTERNATIONAL APPLE CORE 
SPONSORING MEMBERS 


I.A.C. sponsors are a special breed. They are the organizations who along with our advertisers, contri- 
bute to and support many I.A.C. activities. In addition, they will provide us with application notes con- 
cerning their products- notes that will benefit users by showing new and different ways to utilize their 
products or production/software modifications that have been made to upgrade their product. When 
considering a software or product purchase, we request that they be given special consideration. 

Those organizations that would like to become sponsors or who would like additional information 
about the benefits and advantages of becoming a sponsoring member are urged to contact Michael 
Weinstock, Vice-President, International Apple Core, P.O. Box 976, Daly City, CA 94017. 

A list of sponsoring members, current through the first of February, 1981, appears on page 68. 

(continued on page 68) 
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HAUTSIA 8018 : 

SH74LS373H 


Turn your Apple into the world’s 
most versatile personal computer. 


The SoftCard™ Solution. SoftCard 
turns your Apple into two computers. 
A Z-80 and a 6502. By adding a Z-80 
microprocessor and CP/M to your 
Apple, SoftCard turns your Apple into 
a CP/M based machine. That means 
you can access the single largest body 
of microcomputer software in exist- 
ence. Two computers in one. And, the 
advantages of both. 

Plug and go. The SoftCard system 
starts with a Z-80 based circuit card. 
Just plug it into any slot (except 0) of 
your Apple. No modifications required. 
SoftCard supports most of your Apple 
peripherals, and, in 6502-mode, your 
Apple is still your Apple. 

CP/M for your Apple. You get CP/M 
on disk with the SoftCard package. It's 
a powerful and simple-to-use operating 
system. It supports more software 
than any other microcomputer operat- 
ing system. And that's the key to the 
versatility of the SoftCard/Apple. 

CIRCLE READER SERVICE NUMBER 


BASIC included. A powerful tool, 
BASIC-80 is included in the SoftCard 
package. Running under CP/M, ANSI 
Standard BASIC-80 is the most 
powerful microcomputer BASIC 
available. It includes extensive disk I/O 
statements, error trapping, integer 
variables, 1 6-digit precision, exten- 
sive EDIT commands and string func- 
tions, high and low-res Apple graphics, 
PRINT USING, CHAIN and COM- 
MON, plus many additional com- 
mands. And, it's a BASIC you can 
compile with Microsoft's BASIC 
Compiler. 

More languages. With SoftCard and 
CP/M, you can add Microsoft's ANSI 
Standard COBOL, and FORTRAN, or 


Basic Compiler and Assembly Lan- 
guage Development System. All, more 
powerful tools for your Apple. 

Seeing is believing. See the SoftCard 
in operation at your Microsoft or Apple 
dealer. We think you'll agree that the 
SoftCard turns your Apple into the 
world's most versatile personal 
computer. 

Complete information? It's at your 
dealer's now. Or, we'll send it to you 
and include a dealer list. Write us. Call 
us. Or, circle the reader service card 
number below. 

SoftCard is a trademark of Microsoft. Apple II and 
Apple II Plus are registered trademarks of Apple 
Computer. Z-80 is a registered trademark of Zilog, 
Inc. CP/M is a registered trademark of Digital 
Research, Inc. 


/HfCRpSOfT 

v consumer! productsP 

Microsoft Consumer Products, 400 108th Ave. N.E., 
Bellevue, WA 98004. (206) 454-1315 
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By the Editor 


It seems incredible that an entire 
year has rolled past since we put 
the first Orchard to bed and cele- 
brated the new arrival, but it has 
and we are. Celebrating the arrival 
of the fourth Orchard, 96 pages of 
fact and information filled articles 
and programs. 

Leading off this anniversary issue 
on Page 9 is Peter C. Weiglin's 
Screen Formatting of Text a well 
written article from the San Fran- 
cisco Apple Core's Cider Press , and 
of special significance to new- 
comers to Appledom who want to 
learn more about the Apple's easy 
to use screen display commands. 

Our second major contribution is 
byC. K. Mesztenyi of the Washing- 
ton, D.C. Apple Pi group, who has 
greatly expanded on the Applesoft 
Hi-Res Internals information from 
the first Orchard, with his Notes on 
Hi-Res Graphics Routines in Apple- 
soft This feature makes it truly pos- 
sible for the first time to utilize the 
speed of Applesoft's Hi-Res routines 
from Assembly Language. 

One of Call -A.P.P.L.E/s bestowals 
is a substantial rewrite by David W. 
Walker and ourselves of Charles 
Boody's Comparing Applesoft Pro- 


grams for differences > a program 
that is helpful to the utmost when 
you can't remember exactly what 
changes you have made to the pro- 
gram you are working on. 

Call -A.P.P.L.E. and Cider Press 
each appear on the scene again 
with Lee Reynolds' 5. H. Lam Rou- 
tine Utility , a handy program that 
converts machine language to 
BASIC, and Max Nareff's thorough 
exploration of Matrix Functions 
with the Apple. 

Have you ever wondered what 
ASCII really means? Our explana- 
tory article offers some clues as to 
how the ASCII standard character 
set and Apple display set differ, 
while Washington Apple Pi also 
puts in another appearance with 
Bruce Field's Double Size Graphics 
for the Silentype and C. K. Mesz- 
tenyi's really neat method of pass- 
ing parameters to the A, X, Y and PC 
registers from BASIC. 

Pascal users should not feel ne- 
glected either, with a passel of 
goodies, including Low Resolution 
Graphics in Pascal by Bill Shepard, 
nor is CP/M overlooded, as Steve 
Jenkins contributes A Note on 
CP/M. 


In Apple Computer, Inc.'s Con- 
tact, co-founder Stever Wozniak 
describes some of the events pre- 
ceeding Apple I and the Apple ][, 
under the title Homebrew to Cham- 
pagne. "Woz" was recently injured 
while taking off in his aircraft, but is 
doing very well. We are certain any 
cards would be well received, and 
may be sent c/o Apple Computer, 
Inc., 10260 Bandley Driver, Cuper- 
tino, CA 95014. 

Finally, in the International Apple 
Core section, you will find the first 
of several new features, Mark Cros- 
by's New Products Parade , along 
with information as to how you, as 
an individual, can subscribe to the 
Orchard, or locate a user group 
near you to join. User groups, in 
turn, will find how they may join 
the I.A.C. 

Don't forget, we are just scratch- 
ing the surface. It would take 
another two or three pages just to 
describe all the fine material under 
these covers; best you look for 
yourself. To make sure you don't 
miss out on our next big batch of 
brilliant booleanisms, better buy a 
subscription, (whew!) 
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EDITOR RESIGNS, CLUB IN UPROAR 


PRINT FRE(ed) 

By Val J. Golding 

Got your attention, there, didn't I! 
So commenced a story by Lee 
Meador in the Ft. Worth Apple 
User's Group Newsletter, and 
griping about much the same situa- 
tion as we are about to espouse. 
Contributions. 

It is not the almighty dollar we are 
talking about, but the almighty arti- 
cle. This issue of the Apple Orchard 
would not have at all been possible 
without the efforts of three of the 
largest user groups in the country: 
San Francisco Apple Core (Cider 
Press), Washington, D.C. Apple Pi 


(Washington Apple Pi) and Apple 
Pugetsound Program Library Ex- 
change (Call -A.P.P.L.E.). To these 
three organizations, then, we must 
first extend our thanks and our con- 
gratulations for coming through in a 
pinch. 

It seems inconceivable that the 
member clubs of the International 
Apple Core, now numbering well 
over 200, with just minor excep- 
tions, submitted not so much as one 
original or reprint story for this issue 
of the Orchard. We have read 
many, but not enough, issues of the 
club newsletters to know that there 
is a wealth of material out there that 
would be of much interest to many 
of the readers of the Orchard. 

If the president of each club, or 
the editor of its newsletter, would 
take just a few moments to review 
material they have recently pub- 
lished and recommend it to us, we 
would have enough material for the 
next year or two of the Apple 
Orchard. 


The IAC is an organization that 
provides a multitude of services to 
its member clubs, not the least of 
which is free public domain soft- 
ware. In return, each member club 
has a responsibility, an obligation, 
to reciprocate in the form of mater- 
ial for the Orchard. The Orchard 
was, and remains, the primary 
source of financial support for the 
IAC. Without its revenues, the IAC 
could not survive. 

This editorial is no idle threat; it is 
a statement of fact. We will bandy 
no words. Your support is needed, 
and it is needed now. 


IN MEMORIAM: 

Apple Orchard 
Vol. II, No. 2 
Summer, 1981 


After you play the 
Temple of Apshai, 
you can play 
Sticks and Stones 
for free. 

Within the 200 rooms and catacombs of the 
Temple of Apshai, untold treasures await you - 
the hero. All you have to do is elude, outsmart and 


outwit the beasts, monsters and demons lurking 
in the dark labyrinth. Spend minutes or hours on this 
role-playing fantasy - the boldest computer game 
in our Dunjonquest™ series. 

Now, when you order the "Temple of Apshai," you 
get the "Sticks & Stones" board game for no extra 
charge. In fact, if you're not satisfied with the "Temple 
of Apshai," you can return it within 1 0 days and still 
keep "Sticks & Stones!" 

But don't wait, this special offer is limited. (We'll 
also send you a catalog outlining 
our other exciting com- 
puter games). 



Automated Simulations, P.0. Box 4247, 1988 Leghorn Street 
MountainView, California 94040 Department A0 

Please send me the "Temple of Apshai" for: 


Name_ 




Cassette ($24.95) 

Disk ($29.95) 

TRS-80 

□ 16K, Level II 

□ 32K TRSD0S 

APPLE 

Not available 

□ 48K Applesoft in ROM 

PET 

□ 32K 

Not available 


Address. 


(Add $1 .00 shipping and handling charge; plus 6 % or 6 V 2 % tax for California 
residents.) 


City, State, Zip 

□ Check enclosed. 
Amount $ 


Charge to: □ VISA □ MasterCard 
# Expiration date_ 


Or charge by phone: (800) 824-7888, operator 861. In California: (800) 852-7777, 
operator 861 . If you prefer, call these numbers for a list of the computer stores near you. 



Verbatim 

comments: 


W Compared to the brands 
I've used before, Verbatim 
Datalife is the best yet! ?? 

Sandy Tiedeman 
Las Vegas, NV 

WNew Verbatim helped 
eliminate I/O errors on 
my Apple. ?? 

Richard Adams 
Ft. Walton Beach, FL 

WI would prefer Verbatim 
Datalife over any brand I've 
ever used.?? 

Skip Piltz 

Overland Park, KS 

WMy experience with 
Verbatim diskettes has been 
excellent. I've used several 
boxes over the past few 
months and they've all been 
error-free. ?? 

Robert Roeder 

Las Vegas, NV 

WMuch stronger, better 
centering. A definite im- 
provement.?? 

Leroy LaBalle 
Marrero, LA 

Wit has worked perfectly 
everytime!?? 

Richard Ruth 
Shippensburg, PA 

WI like the thicker pro- 
tective cover. ?? 

David Hendel 
Lititz, PA 

W Great! I have had no 
problems!?? 

Timothy Roscoe 
Mechanicsburg, PA 


WSo far my Verbatim disks 
have been performing flaw- 
lessly. Not always so with 
other disks. ?? 

Chris Otis 

Hoffman Estates, IL 

WRuns quieter in the disk 
drive.?? 

Richard Cannova 
Los Angeles, CA 

W Verbatim disks are super. 
They're our standard for 
quality.?? 

Bob Mills 
Mission, KS 

W Anything that prolongs the 
life of a diskette is a plus. 
Thank you Verbatim for an 
excellent improvement.?? 

Steve Toth 
Piscataway, NJ 

WOf the 130-plus Verbatim 
disks I have, I'm not aware 
of any problems. I'm sure 
the improvements will give 
your disks an even longer 
life.?? 

Gerald Janas 
Warren, MI 

W FANTASTIC. Not a single 
registration problem. Much 
more reliable than what I 
had been using.?? 

Gary Sandler 

Play a Del Rey, CA 

WVerbatim is much more 
reliable. I wouldn't trust 
anything else.?? 

Howard Chin 
Pomona, CA 


W Thank you for the im- 
provements. Just another 
reason why 111 always use 
Verbatim.?? 

James Hassler 
Cheyenne, WY 

We introduced Verbatim 
Datalife mere months ago. 
And it's already playing to 
rave reviews like these. 

But don't take anybody 
else's word for it. Try it your- 
self, and see if you don't 
agree it's the best media 
you've ever tried. For the 
name of your nearest 
Verbatim dealer, call (800) 
538-1793, in California call 
(408)737-7771 collect. 




©1981 Verbatim Corporation it ^ 

Datalife is a trademark of Verbatim Corp. W i/lU jf A i. |/ClVJy W K^A I/O 1JLM A Am 
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SCREEN FORMATTING OF TEXT 


by Peter C. Weiglin 
Cider Press 

®1981, All Rights Reserved 


One of the more satisfying sights 
in Apple land is watching as your 
program successfully runs and 
information is being displayed on 
the CRT (Cathode Ray Tube, or TV 
screen to most of us). Lists of infor- 
mation scroll by-bunched up 
against the left margin, maybe, and 
with numbers not quite lined up, 
but printing, by golly. But soon, the 
desire to make things look a bit 
neater wells up inside of us, par- 
ticularly if we're going to show this 
thing off to anyone else, like for ex- 
ample with a project involving our 
work. 

So let's take time here to consider 
the formatting of data. At the outset, 
I must say that this material has 
been gathered from many sources. 
Further, there must be better ways 
to do some of these things, or at 
least alternate methods which you 
may have. If so, please let us know 
about them. 

The BASIC commands which play 
a part in formatting include: 


PRINT 

TAB 

HTAB 

SPC() 

FLASH 

INVERSE 

NORMAL 

VTAB 

INPUT 

GET 

SPEED 

STR$( 

LEN( 

VAL( 

ASC( 

CHR$( 

HOME (or CALL -936) 
CALL -958 
CALL -868 
POKE 


-and others. 

The primary statement is, of 
course, PRINT. All else is format- 
ting which characters we place on 
the screen, and where we place 
them. Within the limitations of the 
40-character wide screen and the 
Apple character set, there is vir- 
tually nothing that can't be done. 
(There is both hardware and soft- 
ware available which bends these 
limitations, but let's stay with the 
unadorned Apple for now.) 

The PRINT statement causes dis- 
play of letters, numbers and all sym- 
bols except the double quotes ("). 
The reason you can't display double 
quotes is that this symbol is used to 
tell the Apple where material to be 
printed starts and ends. No prob- 
lem; we have single quotes (') avail- 
able to pinch hit. Example: 


10 PRINT "'HELLO', SHE SAID AS 
WE" 

Whatever you put between dou- 
ble quotes will be PRINTed. Some 
things can be PRINTed without 
quotes, namely numbers and pre- 
viously identified strings. Examples: 

PRINT 250 
PRINT 4+6 

30 X= 5 
40 PRINT X 

50 X$= "CIDER PRESS" 

60 PRINT X$ 


In addition, Applesoft will allow 
the double quote within a PRINT 
statement, through the use of 
CHR$(34). To rewrite our example 
above: 


10 PRINT CHR$(34); "HELLO"; 
CHR$(34); ", SHE SAIDAS 
WE" 

What about this one? 

70 PRINT 

Well, the PRINT command by it- 
self brings about a line feed and [RE- 
TURN]; it's the equivalent of skip- 
ping a line. 

How about this? 

? 

In Applesoft, a quick way to type 
[PRINT] is to type a question mark 
as a shorthand symbol. 


80 ? "APPLE CORE" 


will yield 


80 PRINT "APPLE CORE" 


when the line is LISTed. This not 
only saves typing strokes, but also 
allows you to edit a program line 
more quickly, by taking advantage 
of the four-character difference be- 
tween [?] and [PRINT]. 

All of these PRINT commands so 
far will begin their display at the left 
side of the screen. Here's the first 
approach to making the right-hand 
phosphors carry their share of the 
load: 


90 PRINT" APPLE" 
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Sure; put in enough spaces to get 
you as far to the right as you want to 
be. Oh. . .if you put in more than 
40 spaces, you'll continue the word 
on the next screen line. 

Well, there are easier ways to 
break free of the left margin; [TAB] 
in Integer Basic and [HTAB] in 
Applesoft Basic. They work the 
same way in their respective dia- 
lects; let's use the Applesoft version: 

100 HTAB 8 

110 PRINT "APPLE CORE" 

-and the first letter of the print 
statement will appear 8 spaces from 
the left margin. We risk duplicating 
the Apple manual here because 
there has been some confusion 
about [TAB], since it appears also in 
Applesoft, but as a slightly different 
function, and there is no "Integer/ 
Applesoft comparative manual". 

SIDE NOTE: THERE IS ONLY ONE 
"R" IN THE WORD "INTEGER!" 

Regarding [TAB] and [HTAB], the 
lowest legal value you can use is 1; 
the highest is 255. (Well, you could 
use [HTAB 0], but only if you 
wanted to tab 256 spaces.) 

Note too, that the [HTAB] com- 
mand can cause the next item to be 
printed to the left or right of the cur- 
rent cursor position. Try this: 


120 HTAB 20:PRINT "E";:HTAB 
10: PRINT "A" 


Yep, the "E" was printed first, 
then the "A" to the left of the "E", on 
the same line. Now try it without 
the semicolon after the "E", and you 
see that the "A" is one line lower. 

But before we get into the semi- 
colon and other delights, let's clear 
up the Applesoft [TAB] first. Note 
that in Line 100 above, [HTAB] 
stood by itself as a command. So 
does [TAB] in Integer. [TAB] in Ap- 
plesoft does not; it must be in- 
cluded in a [PRINT] statement, with 
the number in parentheses, like 
this: 


130 PRINTTAB(8) "APPLE CORE" 
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Why do we bother with [TAB] in 
Applesoft at all? Frankly, I dunno. 
[HTAB] runs a bit faster than [TAB] 
and [TAB] cannot move the cursor 
to the left. Anybody have the 
answer? 

Now try this: 


140 A =7 

150 HTAB A: PRINT "APPLE" 

Yes, you can [HTAB] to a variable, 
too, which leads to all kinds of pos- 
sibilities. You may have noticed one 
application of this in an S. F. Apple 
Core Disk of the Month: 


160 C$= "APPLE CORE" 

170 HTAB (20- INT(LEN(C$)/2)) 
180 PRINT C$ 


Since 20 is halfway across the 
screen, and we're HTABbing 20 
minus one-half the length of the 
string, the string will automatically 
be centered. If you want to print C$ 
so that it will be flush with the right- 
hand margin, make line 170 above 
read this way: 

170 HTAB (41 - LEN(C$)) 

Yes, that's "41", not "40". The last 
character of the string will occupy 
the 40th space on the screen, which 
is the rightmost space. 

We also lightly scratched the sur- 
face of ways to print more than one 
item on the same line. This is most 
often done with semicolons, al- 
though commas and the [SPC( )] 
command are also available. Try 
this: 


190 PRINT "APPLE";" ";"CORE" 


-and you get the space between 
the two words. The semicolons tie 
the elements of a PRINT statement 
together. Remember, a PRINT state- 
ment normally contains an auto- 
matic RETURN within it; the semi- 
colon inhibits that RETURN. For 
example: 


200 PRINT "APPLE"; 
210 PRINT" "; 

220 PRINT "CORE" 
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-and all is on the same line, even 
though three program lines were 
used. 

The comma in a PRINT statement 
also inhibits the carriage return or 
line feed, but it does so in a very 
specialized way. The line 

230 PRINT "A","B","C","D" 

-causes the "A" to be printed at the 
left margin, the "B" in the 17th 
space, the "C" in the 33rd space, 
and the "D" in the first space on the 
next line. These locations are fixed; 
while you use the comma, you can't 
change them. It'll go 1, 17, 33 'till 
Kingdom come. 

To print columns, you can use the 
comma, or you can use a formula 
which gives you better control of 
the columns. Let's assume a list of 
30 items, each 6 characters wide. If 
you just [PRINT] that list, it'll scroll 
the first items on the list right off the 
screen. But if you split it into two 
columns, it'll all fit. Try this: 


240 FOR 1 = 1 TO 15 
242 PRINT S$(l); 

244 HTAB 20: PRINT S$(l+ 15) 
246 NEXT I 


For more than two columns, the 
general idea is the same; divide the 
total number of items in the list by 
the number of columns you want, 
and add 1. That becomes the top 
number in the for-next loop. As an 
example, for three columns, with 
48 items, it's: 


250 RN = 48 

251 N = (RN/3) + 1 

252 FOR 1= Tto N 

253 PRINT S$(I);:HTAB 15 

254 PRINT S$(N+ l);:HTAB 30 

255 PRINT S$(2*N) + I) 

256 NEXT I 


-Note the semicolons used in lines 
253 and 254 to keep the items on 
the same line. For four columns, N 
would be set equal to ((RN/4J+1), 
and another PRINT statement 
would call for printing S$((3*N)+ 1). 
Obviously, you'd have to adjust the 
tabs accordingly. 
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Another command which helps 
to free us from the right margin is 
[SPC( )], which, as the name im- 
plies, involves spaces rather than 
tabulation. The TAB/HTAB family of 
commands uses the left margin as 
its baseline, measuring from there 
each time it is used. The SPC( ) 
command measures from the end 
of the previously printed statement. 
These next two statements will do 
precisely the same thing: 

260 PRINT "A";" ";"B" 

270 PRINT "A"SPC(8)"B" 

Note that the SPC( ) command 
must be in a PRINT statement, that 
it does not require semicolons, and 
that the number of spaces must be 
in parentheses. SPC( ) also requires 
less memory than a string of blank 
spaces in your program. And, to 
make this complete, you can also 
SPC( ) to a variable, which means 
that this next line will duplicate 
lines 260 and 270 above, putting 
eight spaces between the "A" and 
the "B": 

280 X= 16 

282 PRINT "A"SPC(X/2)"B" 

Remember, the SPC( (command 
measures from the end of the item 
preceding it, rather than HTAB or 
TAB'S reference to the left margin 
every time they are used. 

The FLASH and INVERSE com- 
mands are used to highlight char- 
acters on the video screen (excuse 
me, the CRT display). They look 
good, if not overused. The most 
common programming error with 
them is forgetting to use NORMAL 
to return to good 'ol white on black, 
but this one manifests itself very 
quickly. Thanks to the semicolon, 
we can highlight part of the PRINT 
statement, like this: 


290 PRINT "YOU ARE 

INVERSE: PRINT "VERY WEAK"; 
: NORMAL: PRINT " TODAY." 


The INVERSE and NORMAL com- 
mands are set off by colons as se- 
parate statements in the program 
line. The PRINT command must be 
repeated after a colon, or else: 


300 PRINT "YOU ARE ";:FLASH: 
PRINT "DEAD";: NORMAL: 
PRINT "TODAY." 


There is one aesthetic problem 
with FLASH: if it's on the screen for 
more than a few seconds, it be- 
comes more of a nuisance than a 
help. Clear it out when it has done 
its attention-getting job. One good 
use for FLASH is for showing that 
the computer is occupied by an in- 
ternal activity for the moment, with 
a message like 

310 FLASH: PRINT 

"WORKING. . .": NORMAL 


INVERSE and FLASH affect only 
the Apple's output to the CRT dis- 
play (excuse me, the video screen). 
Your input remains white on black. 


VERTICAL SPACING 

Remember, with the horizontal 
location process, that semicolons 
and [SPC) )] measure from the pre- 
viously printed character, while 
HTAB, TAB, and commas use fixed 
references measured from the left 
margin. Vertical location is also pos- 
sible from a fixed reference (the top 
of the screen) or a relative distance 
from the last characters PRINTed. 

We begin with the relative refer- 
ence; the applicable command is: 


320 PRINT 


Yup; PRINT by itself allows you to 
skip a line. To skip three lines, type: 


330 PRINT: PRINT: PRINT 


or 


335 ?:?:?: 


-remembering that the question 
mark is a shorthand way of asking 
for [PRINT]. It's no more difficult 
than that. But sometimes, as when 
material scrolls upward off the 
24-line screen, relative spacing 
doesn't quite do the job. 


Hence the need for a means of 
positioning or formatting material 
vertically. The primary means of do- 
ing this is VTAB, or vertical tabula- 
tor, which will place the first char- 
acter of your material a given num- 
ber of lines down from the top of 
the screen. So, 

340 VTAB 5: PRINT "APPLE" 

will cause the word "APPLE" to be 
printed on the fifth line, at the left 
hand margin. Note, however, that 
whatever is on the screen from pre- 
vious [PRINT] statements will not be 
disturbed. This is a situation which 
could very quickly lead to clutter, 
but which also has advantages. 

Now, it is through the combina- 
tion of vertical and horizontal for- 
matting commands that we gain 
both flexibility and power. For ex- 
ample, given a blank screen, try 
this: 

350 VTAB 5: HTAB 7: 

PRINT "COMPUTER" 

-and, if you RUN lines 340 and 
350 together, you get both words 
properly placed, but by indepen- 
dent commands. Aha! That should 
suggest all kinds of flexible for- 
matting possibilities. The combina- 
tion of VTAB and HTAB allows you 
to place any characters anywhere 
on the screen. One example is: 


360 VTAB 5: PRINT "NUMBER OF 
MEMBERS: " 

(lines calculating the number of 
members) 

370 VTAB 5:HTAB 20.PRINT M: 
REM M= MEMBERS 


What that means is that a data 
framework can be set up on the 
screen using commands like Line 
360 above for the descriptions, and 
coming back later with commands 
like Line 370 to supply or to change 
the data. You can even do this: 


380 VTAB 5:HTAB 20:INVERSE: 
PRINT " ";M;" " : NORMAL 
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-and you get the data in inverse, 
while the description is normal. 
(The spaces before and after the M 
are just to make the display look 
better). It's not uncommon to use 
the top 15 screen lines as a form 
framework, while the prompts for 
inputting data occupy lines 16 
through 24. Part of the screen can 
be made to hold still, or be "frozen", 
by use of a [POKE] command. 

A [POKE] command?? Yup. As 
with any POKE command, we enter 
a location and a value, lowering the 
top of the screen from line 0 to 
another line between 0 and 23. The 
memory location is 34, so if you 
want the screen fixed in place 
above line 10, the command is: 

390 POKE 34,9 

-and you can't print above line 10. 
Well, yes you can, by using VTAB to 
a line above line 10. But all of the 
text scrolling will take place below 
line 9 until you reset the window; 
try: 

400 POKE 34,0 : HOME 

and all is normal. In addition, loca- 
tion 34 (along with the other win- 
dows) can be cleared with: 

405 TEXT 

That HOME reminds me of three 
commands which can be used to 
"erase" material already on the 
screen prior to installing revised 
data at the same screen location. 
Example: if we set: 


410 HOME:VTAB 4:HTAB 5: 

PRINT "CIDER SQUEEZINGS" 


-we get the printed words on the 
fourth line down, covering the hori- 
zontal spaces from 6 through 21, as 
the string is 16 characters long. 
Now, we can try to replace the 
word "squeezings" with the word 
"press", thus: 


420 VTAB 4:HTAB 11:PRINT 
"PRESS" 


and we get-"CIDER PRESSZINGS". 
Oops! The new word didn't erase all 
of the longer word that was there 
first. Well, we couldn't use HOME 
or CALL -936, or we'd clear the 
whole screen. 

Note: HOME is not available in 
Integer Basic; use CALL -936. 

Note to Note: THERE IS ONLY 
ONE "R" IN "INTEGER"! 

But we can use CALL -958, which 
clears only that part of the screen 
below and to the right of the cursor 
location. Or, if you have other 
material below the cursor, use 
CALL -868, which clears only the 
rest of the line on which the cursor 
is located. Like this: 

430 VTAB 4:HTAB 11:CALL 
-868: PRINT "PRESS" 


Note that the [HTAB] precedes 
the [CALL]; you thus clear from the 
11th space to the right margin. 

Now let's say you have a list of 
data to be printed out on the 
screen, and the list has more than 
24 items. Whoops-there go the 
first few items off the top of the 
screen, while you scramble to find 
CTRL-S to stop the runaway. Well, 
there is a better way. At least two 
better ways, in fact. 

Method 1: 

Set your PRINT routine up like this: 

* 800 REM PRINT ROUTINE 
810 F = 0 : REM FLAG 
820 FOR 1= 1 TO N : REM N = 
NO. OF ITEMS 

830 (the data print statement for 
each line) 

840 F= F+ 1: IF F> 22 THEN 
GOSUB 1000: F= 0: HOME 
850 NEXT I 


1000 INVERSE:PRINT " PRESS 
[SPACE] TO CONTINUE... 
";: GET A$: PRINT: 
NORMAL: RETURN 


This method increments a flag 
with each line printed. At Line 23, 
the subroutine is called. Pressing 
the space bar (or any other key) 
causes the PRINT routine to con- 
tinue in an orderly fashion, a 
screenful or "page" at a time. 


Method 2 

900 REM ROUTINE 
910 FOR 1= 1 TO N 
920 (the data print statement for 
each line) 

930 IF PEEK (37)> = 22 THEN 
GOSUB 1000: HOME 
940 NEXT I 


This one looks for the cursor loca- 
tion, at memory location 37. Find- 
ing the cursor at or below Line 22, it 
triggers the subroutine. You can, of 
course, set the values at other lines, 
to fit your format. 

A semi-digression (which fs noth- 
ing like a trailer truck running off 
the road): you can vary your dis- 
plays by using the [SPEED] com- 
mand to slow down the rate at 
which characters appear. SPEED= 
255 is both the fastest speed and the 
default value. . .what you normally 
see on your Apple is the "255" rate. 
The slowest rate is 0. Like [FLASH], 
the slower display rates are useful in 
small quantities, but become irri- 
tating after prolonged exposure. 


INPUTS AND GETS 

Having covered the means 
whereby PRINTed characters out- 
put by the computer can be liber- 
ated from the left margin, or the top 
of the screen, let's consider the 
characters input by you in answer 
to requests for information neces- 
sary to the execution of your pro- 
gram. Like this: 


440 PRINT "YOUR NAME";: 
INPUT A$ 


or 


445 INPUT "YOUR NAME?";A$ 


which are the two variations of this 
command. Now, as shown above, 
these lines will begin at the left mar- 
gin. You can move 'em wherever 
you want 'em. 
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Note another wrinkle here. In 
Line 440, we used a PRINT state- 
ment for the prompt material, fol- 
lowed by the INPUT request. In 
Line 445, the prompt material is in- 
cluded as part of the INPUT re- 
quest. We didn't put the question 
mark in Line 440, because the sys- 
tem does it automatically, since it 
didn't find any prompt material in 
quotes. The INPUT request, when 
used as in Line 445, allows you to 
replace the question mark with any 
text you desire. 

In a format situation, you quite 
often want a number printed in the 
same position on the screen, even if 
it may contain different numbers of 
digits at various times. Don't input a 
real or integer variable, INPUT a 
string, then use the VAL( ) function 
to derive the numerical value. If 
you hit a letter when the computer 
is expecting a number, it's error 
time. 

Having INPUT a string, you can 
use one of my favorite subroutines, 
which equalizes string lengths: 


450 FOR K = 1 to L% : I F LEN(A$) 
< L%THEN A$= " "+ A$ 

451 RETURN 


Of course, you have to set L%to 
the maximum string length for that 
application, but you can use differ- 
ent lengths during the program. It 
looks like this: 


460 L% =4: GOSUB 450: PRINT 
A$: 

A% = VAL(A$) 


The subroutine inserts blank 
spaces ahead of the INPUTed num- 
ber, then creates the Integer vari- 
able after printing the formatted 
string. (Yes, it could be a real vari- 
able too). 

The PRINT statement for a num- 
ber calculated by the computer can 
also be converted to a formatted 
string before PRINTing; in fact, 
there's no law against using the A$ 
variable over and over, in conjunc- 
tion with Subroutine 450. A$ needs 
to retain a value only long enough 
to PRINT it, after which it moves on 
to the next number. 


470 A$= STR$(TL):L% = 4: 

GOSUB 20: HTAB 4: PRINT 
A$;:A$= STR$(TM): 

L% = 6: HTAB 18: PRINT A$ 

The INPUT statement requires a 
[RETURN] after the data is typed, 
and we all know that a GET state- 
ment does not. That is, as soon as 
the info is typed in response to a 
GET statement, the microprocessor 
is off and running with it: 

480 PRINT "ENTER INITIAL: 

GET A$ 

So a GET statement, while it is 
faster, is good for only a single- 
character response, right? Wrong. If 
you have a definite number of char- 
acters to be entered, try this: 

490 PRINT "ENTER 3 INITIALS: 
GET A$: GET B$: GET C$: 
D$ = A$ + B$+C$: PRINT D$ 

As an alternative, you can GET in a 
loop, as in: 

495 PRINT "ENTER 3 INITIALS:";: 
FOR I = 1 TO 3: GET A$: 

B$= B$+ A$: NEXT: PRINT B$ 

Notice that you can't do with GET 
what you can with INPUT as we 
showed in Line 445 above; you 
must use the PRINT statement. 
Note also, the absence of semi- 
colons between the GETs. Either ex- 
ample will pick up three characters, 
no more, no less. It combines the 
three single-letter strings into one 
three-letter string, and heads for the 
hills. . .or at least for the next pro- 
gram line. For many reasons, in- 
cluding some caused by quirks in 
the machinery, you're best off ac- 
quiring numerical answers by GET- 
ting string variables and converting 
to real or integer using the VAL( ) 
function. 

Finally, the most direct, and yet 
most sophisticated way to put a text 
character on the TV/CRT/VDU 
(Video Display Unit) screen is to 
POKE it there, directly into one of 
the 960 cells of the 40 by 24 "grid". 
Try this: 

500 HOME: POKE 1335, 195: 
POKE 1336, 201: POKE 1337, 

196: POKE 1338, 197: POKE 
1339, 210: POKE 1340, 160: 510 
POKE 1341, 208: POKE 1342, 

210: POKE 1343, 197: POKE 
1344, 211: POKE 1344, 211 


How 'bout that! What you've 
done, of course, is exactly what the 
Apple has been doing for you all 
through this article. You have first 
identified a location on the screen, 
and then placed a specific character 
in that location. 

The first number in the POKE 
command is the location for a par- 
ticular block on the screen, which is 
mapped out on Page 16 of the Ap- 
ple Reference Manual. Each of the 
960 blocks on the screen has its 
own address in the Apple's mem- 
ory. We used the Figure to locate 
the address of the eleventh line for 
our example above (starting loca- 
tion in 1 320 decimal or 528 in hexa- 
decimal), and then moved 15 
spaces in from the left margin by 
adding 15 to the 1320 line starting 
address, to begin our word at loca- 
tion 1335. 

Look closely at that screen map; 
notice that the blocks are not num- 
bered consecutively, but rather in 
three horizontal bands of eight lines 
each. You can easily demonstrate 
this phenomenon: 

520 HOME: FOR 1= 1024 TO 
2039:530 POKE I, 193: NEXT 

Which character goes into that lo- 
cation is determined by a numerical 
code; the American Standard Code 
for Information Interchange, or 
ASCII. (To pronounce "ASCII", think 
of a donkey unlocking a door). The 
table on Page 15 of the Reference 
Manual shows the ASCII numbers 
for the characters available to you 
on the Apple. The ASCII code num- 
ber is the second number in the 
POKE command. 

Now try this: 

540 HOME: POKE 1339, 220 

That's a backward slash, and you 
won't find it on the Apple keyboard. 
The only way you'll get it on the 
screen is by POKEing it there, or by 
using the CHR$( ) function, which 
also involves the ASCII code num- 
ber, in a PRINT statement. There 
are a couple of other characters 
you'll not find on the keyboard, in- 
cluding the underline (ASCII 223) 
and left bracket (ASCII 219). For all 
characters, whether normal, flash- 
ing, or inverse, the POKEs give you 
direct access to the screen. 



PAGE 14 


APPLE ORCHARD 


SPRING 1981 


AN 

INTRODUCTION 
TO LIGHT PENS 

by Neil D. Lipson 
/.AC. Software Chairman 


It has been brought to my atten- 
tion that there are many program- 
mers that do not know the opera- 
tion of a light pen. The operation is 
relatively simple. There are a few 
different types of pens out on the 
market, each of which functions dif- 
ferently. Hopefully, this article will 
help you in your understanding of 
the operation of these pens. 

There are basically three types of 
pens in use for the Apple. Those 
that use an on-off type of cell 
(typically a phototransistor), those 
that operate on resistance, and 
those that use an optodetector, sen- 
sitive to raster scan of a monitor. 
The most expensive (over $200) is 
the raster scan model. It picks up 
the actual scan on the monitor and 
uses this for determining the loca- 
tion of the point. Since this is far 
faster than the former two, it is fast 
enough to draw lines very quickly. 
However, to accomplish this, it 
must have some sophisticated elec- 
tronics and a rather large barrel, 
which accounts for the very high 
price of the unit. It can pick out 
very small points (hi-res), among 
other things. This is due to the 
focusing nature of the optodetec- 
tor. It must be very accurately ad- 
justed along with the monitor, or it 
will not operate correctly. 

The most popular light pens for 
the Apple, however, are those that 
use phototransistors, and cadmium 
sulfide and selenide cells. The 
phototransistor cell is somewhat 
faster than the cadmium cells, but 
does not do as much. It can detect 
only an on-off threshold. When us- 
ing it with a monitor or TV, the 
brightness and contrast must be ad- 
justed just right, or again, it will not 
always operate perfectly. This leads 


into another shortcoming of the 
cell, in that it cannot determine dif- 
ferent variations of light. Therefore, 
you cannot use software to deter- 
mine differences in light; only an 
on-off condition. This is fine if all 
you do is pick points from the 
screen with no change in light con- 
ditions. However, if the sun rises 
and shines through the window 
close to the monitor, you may end 
up readjusting the monitor. Also, 
suppose you want to use the pen to 
give variable readings instead of on 
and off? 

This is the reason for going to a 
cadmium sulfide. They will do both 
of these functions. However, a pure 
cadmium sulfide cell is very slow. 
The solution for this is to go to a high 
speed cadmium selenide cell. You 
then have the speed of a phototran- 
sistor, and the ability to read differ- 
ent levels of light. These cells are 
quite expensive, and the manufac- 
turer must choose very carefully a 
cell that fits all these parameters. 
What had to be done to satisfy 
these conditions, was to custom 
make the cell to operate under 
these parameters. While this added 
to the expense of the light pen, it 
gave the user the ability to do every- 
thing he could want with a light 
pen. Pens of this type can act as 
light meters, and other applications 
which the regular phototransistor 
pens cannot do. 

The pen works differently for dif- 
ferent applications. To spot a point 
on the screen, it will check every 
point very fast, and look for a possi- 
ble match. When the point on the 
screen turns off, and the pen "sees" 
an off condition, it registers a possi- 
ble hit. It then verifies the point by 
turning it on and off, checking it 


everytime it does this. If after a few 
checks, it verifies, and then uses 
this point in the program. 

When the pen is used in drawing 
points, there are a few different 
methods used. One is to draw a 
"sheet" of light coming from the top 
down, and then from the left to 
right, and picking out the x and y 
coordinates. Another method is to 
scan the screen in bars, and localize 
which bar is being scanned. 
Another method is by using blocks 
of light. They are all satisfactory and 
give roughly the same end result. 

For those pens that use cadmium 
selenide cells, different levels of 
light can be detected, and used ac- 
cordingly. This type of pen is 
plugged into the game paddle into 
the pdl(0), pd 1(1 ) or pdl(2) point. 
They simulate the paddle opera- 
tion. The resistance (if the cell is 
properly designed) is from 0 to 
150K ohms. As the amount of light 
rises, the resistance drops. Even if 
the operation of the resistance is 
not linear, software can correct it. 

Hopefully, this will help you in 
your understanding of light pens 
and their operation. 


Screen Formatting 
of Text 

(continued from page 9) 


But all that POKEing is a tedious 
process for large amounts of text, 
which is why we have all of the 
other PRINT and formatting com- 
mands. But with the POKEs, you've 
just stepped out onto the path that 
leads to (gasp!) machine language. I 
suggest that you review the Apple II 
Reference Manual (spiral bound, 
1979), Pages 14-16, in which the 
Figure and Table appear. While 
you're in the Manual, you can de- 
cide how much closer to machine 
language you'd like to get, by trans- 
lating the POKEs into "00"s through 
"FF"s. 

As noted, if you find better ways, 
please let us know; and do your 
part to beautify the world's CRT / 
TV/VDT screens. 
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Make the Apple II* a powerful 
IEEE -488 Controller in a snap 


Just plug the SSM A488 board into any Apple II* expansion slot for a low-cost, ‘ m 

full-featured instrumentation interface. SSM gives the Apple II the power and | | jjj 

versatility of a $9,000 IEEE-488 controller. At a fraction of the price. | ||||l 

Our board converts the Apple II into a truly sophisticated controller that || 

programs and controls up to 15 different instruments connected together 
on the 488 bus. 

We make programming easy. The 68488 chip, designed by Motorola, forms the ^|||||^ 

heart of our A488. We back this chip with powerful on-board firmware to 
give you system control via simple string commands. The only software 
you need is easy-to-program Applesoft* Basic. To develop special purpose 
firmware, simply replace our PROM with a RAM. With the A488, bus com- 
munications operate at top speed — without depending on software loops for 
timing. And like the more expensive IEEE-488 controllers, this system interfaces 
with more than 1200 instruments and peripherals. 

Suitable for OEMs as well as end users. Whether you make test/measurement systems for re- 
sale, or simply for yourself, the SSM/Apple combo gives you top performance. As it cuts 
your costs. Call your local dealer or SSM today for complete details. 


Industrial grade circuit board 

PROM firmware for powerful user interface 
68488 IEEE-488 controller chip — v 


IEEE-488 bus cable 

(6 ft. with stackable connectors) 


Slot-independent connection to Apple II 


SSM 9 s A488 board expands the Apple II to 
a high-performance IEEE-488 controller . 


SSM Microcomputer Products, Inc 

2190 Paragon Drive 
San Jose, CA 95131 
(408)946-7400 Telex: 171171 
TWX: 910-338-2077 


Registered trademarks of Apple Computer Inc. 
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NlR* ^ presents our valuable free 
catalog (over 100 pages). He prompts you 
to PEEK at the latest collection of 
software and hardware 
products for your APPLE ll™ 


A STELLAR TREK 

the definitive Hi-Res 
color version of the classic 
Startrek game. Three 
different Klingon opponents. 
Many command prerogatives 
from use of weapons to 
repair of damages. Needs 
48K Applesoft ROM. 

Disk... $24.95 


VERSAWRITER II 

A drawing tablet, 
simply plugs into your 
game I/O port. Trace, draw, 
design, or color any type of 
graphic. Adds words to 
pictures. Creates schematics. 

Computes Distance /Area of any 
figure. New - fill any area 
on the screen in seconds with 
over 100 different and 
distinct colors. Needs 32K 
Applesoft ROM and disk 
drive. A bargain at. 
$249.95 


BOWLING DATA 
SYSTEM 

This data mangement 
program provides accurate 
record keeping and report 
generation for bowling leagues 
of up to 40 teams with 
6 bowlers per team. 
Needs 80-column printer, 
32K Applesoft ROM. 
Disk... $79.95 


SUPER SOUND 

Musical rhythms, 
gunshots, sirens, laser blasts, 
explosions . . . add these and 
many more exciting 
sounds to your Apple. Use 
them in your programs, 
or create your own 
supersounds. Needs 
16K Applesoft. 

Have a blast for only 

$12.95... Tape 
$16.95... Disk 


ADD $2.00 U.S. $10.00 FOREIGN FOR SHIPPING 
CALIFORNIA RESIDENTS ADD 6% SALES TAX 


Don't see what you want 
here, then write or call 
today for your free 
catalog. We're saving 
one just for you. 


Visa /Mastercharge welcome. 



GARDEN PLAZA SHOPPING CENTER 
9719 RESEDA BOULEVARD DEPT. 12AO 
NORTHRIDGE, CALIFORNIA 91324 
PHONE (213) 349-0300 
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NOTES ON HI-RES GRAPHICS 
ROUTINES IN APPLESOFT 

by C. K. Mesztenyi 
Washington Apple Pi 


Checking out the entry points given 
by J. Crossley in the article "APPLE- 
SOFT INTERNAL ENTRYPOINTS" in 
the March/April 1980 Apple Or- 
chard, I found the given entry 
points were 4 bytes off from the 
given ones in our APPLE II Plus. Fur- 
thermore, after checking out the 
routines in more detail, I thought to 
share my experiments with other 
APPLE II Plus owners interested in 
machine language programming. In 
the first section, I describe the 
essential data storage area, in the 
second I give the entry points of the 
subroutines somewhat more detail- 
ed than in the above article, and in 
the last section I give some listings 
of instructions following the entry 
points so that one could identify it 
for different versions of Applesoft. 


1. DATA STRUCTURE 

There are four data in five mem- 
ory locations which specify a point 
on the high resolution screen 
(whether the screen is displayed or 
not, is irrelevant). I call these data 
collectively as external cursor data. 
The five memory locations, and 
their contents are as follows: 


$E0: Low order bits of the hori- 
zontal screen coordinate 
$E1 : High order bit of the hori- 
zontal screen coordinate 
$E2: Vertical screen coordinate 
$E4: Color masking word from 
the color table ($F6F6- 
$F6FD) 

$E6: Page indicator ($20 for 
Page 1, $40 for Page 2) 


I have called the above set of data 
as external cursor data since the ac- 
tual point plot is performed by the 
following five instructions: 


LDA $1C 
EOR ($26), Y 
AND $30 
EOR ($26), Y 
STA ($26), Y 


which uses data located at $1C, 
$26, $27, register Y and $30. The 
contents of register Y are always 
picked up from location $E5 prior 
to the above instructions, thus we 
may call the data in the following 
five locations as internal cursor 
data: 


$1C: The color masking byte 

shifted for odd address and 
none black or white, un- 
changed otherwise. 

$26, $27: (Low, high order) ad- 
dress of the byte corre- 
sponding to the page, verti- 
cal coordinate and leftmost 
seven points of the screen. 

$E5 (register Y): The integer 
part of the horizontal 
screen coordinate divided 
by 7. 

$30: The bit position taken from 
Bit Position Table corre- 
sponding to the remainder 
of the horizontal coordi- 
nate divided by 7. 


These two cursor data (external 
and internal) are equivalent in the 
sense that given one, the other can 
be derived from it. There would be 
no need to make any distinction if 
they would correspond to each 
other all the time, but unfortu- 
nately, this is not always the case, 
e.g. the following sequence of 
BASIC instructions: 


HCOLOR= 1 
HPLOT 0,0 TO 10,10 
HCOLOR = 2 
HPLOT TO 10,50 


plots two lines, (0,0) to (10,10) and 
(10,10) to (10,50), both with color 
1, i.e. HCOLOR = 2 has no effect. 
Actually it resets the color code in 
$E4 but it does not change $1 C, and 
the statement HPLOT TO picks up 
whatever was left in $1C. 

A machine language programmer 
can write his/her own graphics rou- 
tines which takes time and uses 
sometimes much-needed memory 
space. Thus using the available pro- 
grams in Applesoft ROM can be ad- 
vantageous. If execution time is also 
important, as in the case of anima- 
tion, then one should concentrate 
only on the internal cursor data, 
and modify the external cursor only 
when it is necessary. The entry 
points INTX and INTY, provide the 
basic routines for incremental plot- 
ting which are not available directly 
in BASIC. Also, modifying the exter- 
nal cursor coordinates allows the 
use of HLINE with off-set. 



PAGE 18 

2. ENTRY POINTS IN APPLESOFT 


Page and Color: 


HGR2 ($F3D8): Displays page 2 
with all graphics mode, 
sets $E6 to $40, clears 
page 2 (black) and sets 
$1C to zero (black I). 

HGR ($F3E2): Displays page 1 in 

mixed mode, sets $E6 to 
$20, clears page 1 (black) 
and sets $1C to zero 
(black I). 

BKGND ($F3F4): Clears the page 
defined by $E6 to the 
color defined by the con- 
tents of register A, which 
should be one from the 
Color Masking Table. Also 
stores register A in $1C. 

HCOLOR ($F6F0): Assumes regis- 
ter X contains the color 
index (0 to 7). The rou- 
tine picks up the appro- 
priate color code from 
the Color Masking Table 
and stores it in $E4. 


Positioning Entries: 

HPOSN ($F411): Assumes the in- 
put upon entry in the re- 
gisters as: 

register X = low order bits 
of the horizontal screen 
coordinate, 

register Y = high order bit 
of the horizontal screen 
coordinate, 

register A = vertical screen 
coordinate. 

The routine stores the re- 
gisters in $E0, $E1 and 
$E2. Then, using $E6, sets 
$26, $27, $30 and $E5 
together with register Y, 
and sets $1C to the con- 
tents of $E4. Thus this 
routine makes the internal 
cursor equivalent to the 
external one. 

INTX ($F465): Modifies the internal 
cursor data in $1C, $E5, 
register Y and $30 so 
that it corresponds to 
incrementing/decre- 
menting the horizontal 
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screen coordinate X by 
one. Upon entry, if the 
N-flag is zero (positive) 
then it increments; if N 
is set (negative) then it 
decrements. The modi- 
fication has a wrap 
around feature, i.e., in- 
crementing/decrement- 
ing at the extreme sides 
of the screen defined 
by the internal cursor 
causes it to come back 
on the other side. The 
routine assumes that re- 
gister Y corresponds to 
$E5 upon entry, and 
leaves the routine cor- 
rectly modified if 
necessary. 

Upon testing the N-flag 
the routine jumps to 
DECRX or INCRX. 


DECRX ($F467): The routine modi- 
fies the internal cursor 
data by decrementing 
the horizontal screen 
coordinate by 1 (see 
INTX). 

INCRX ($F48A): The routine modi- 
fies the internal cursor 
data by incrementing 
the horizontal screen 
coordinate by 1 (see 
INTX). 

INTY ($F4D3): Modifies the inter- 
nal cursor data in $26, 

$27, so that it corre- 
sponds to incrementing/ 
decrementing the verti- 
cal screen coordinate 
by one. Upon entry, 
the N-flag is checked, 
and if it is set (negative) 
then goes to INCRY to 
increment by one, if it 
is not set (positive) then 
goes to DECRY to de- 
crement by one. Note 
that the sign convention 
is used opposite of 
INTX. These entries also 
have the wraparound 
features, i.e. if the in- 
crementation/decre- 
mentation causes the 
cursor to leave the 
screen on the bottom/ 
top, then it comes back 
on the top/bottom. 
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DECRY ($F4D5): The routine modi- 
fies the internal cursor 
data by decrementing the 
vertical screen coordinate 
by 1 (see INTY). 

INCRY ($F504): The routine modi- 
fies the internal cursor 
data by incrementing the 
vertical coordinate by 1 
(see INTY). 

IPOSN ($F5CB): Sets the external 
cursor data in $E0, $E1, 
$E2 equivalent to the in- 
ternal cursor coordinate 
data. 


Plotting Entries: 


HPLOT ($F457): Assumes input data 
in the registers as 
HPOSN: 

register X: low order bits 
of horizontal screen 
coordinate, 

register Y: high order bit 
of horizontal screen 
coordinate, 

register A: vertical screen 
coordinate. 

The routine calls HPOSN 
with the above data, then 
goes to PLOT. 

PLOT ($F45A): The routine exe- 
cutes the five instructions 
listed in the beginning of 
the article which plots a 
point using the internal 
cursor data. If this entry is 
used directly, then the 
user should make sure 
that register Y contains 
the data from $E5. 

HLINE ($F53A): The routine as- 
sumes input in the 
registers: 

register A: low order bits 
of horizontal screen 
coordinate, 

register X: high order bit 
of horizontal screen 
coordinate, 

register Y: vertical screen 
coordinate. 


(Note that it is in different 
order than (HPOSN.) 
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The routine draws a line 
from the internal cursor 
position to the point de- 
fined by the input. Upon 
exit, it leaves the external 
cursor data corresponding 
to the input, the internal 
cursor data corresponding 
to the last plot point of 
the line. If the internal 
and external cursor data 
were not equivalent, then 
an off-set occurs. This can 
be visualized as follows: 
Draw a line segment 
from the external cursor 
coordinates to the input 
coordinates. Now move 
this line segment parallel 
to itself so that the end- 
point at the external cur- 
sor position gets into the 
internal cursor position. 
This is the actual line seg- 
ment which will be 
drawn. If it gets outside of 
the screen, then a wrap- 
around occurs, i.e. it 
comes back on the oppo- 
site side of the screen. 


APPENDIX 

The first few instructions are listed 
for each entry point so that one 
could identify them using the Moni- 
tor list feature. 

Bit Position Table: 

$F5B2: $81=10000001 
$F5B3: $82 = 10000010 
$F5B4: $84=10000100 
$F5B5: $88 = 10001000 
$F5B6: $90 = 10010000 
$F5B7: $A0= 101 00000 
$F5B8: $C0 = 11000000 


Color Masking Table: 

$F6F6: $00 = 00000000 (black I) 
$F6F7: $2A = 00101010 
$F6F8: $55 = 01010101 
$F6F9: $7F = 01 111111 (white I) 
$F6FA: $80=10000000 (black II) 
$F6FB: $AA = 10101010 
$F6FC: $D5 = 11010101 
$F6FD: $FF = 11111111 (white II) 

HGR2: $F3D8: BIT $C055 

BIT $C052 
LDA #$40 
BNE $F3EA 


HGR: 

$F3E2: 

LDA #$20 
BIT $C054 
BIT $C053 
STA $E6 

BKGND: 

$F3F4: 

STA $1C 
LDA $E6 
STA $1 B 
LDY $#00 

HCOLOR: 

$F6F0: 

LDA $F6F6,X 
STA $E4 
RTS 

HPOSN: 

$F41 1 : 

STA $E2 
STX $E0 
STY $E1 
PHA 

AND #$C0 
STA $26 

IPOSN: 

$F5CB: 

LDA $26 
ASL 

LDA $27 
AND #$03 
ROL 

ORA $26 

INTX: 

$F465: 

BPL $F48A 

DECRX: 

$F467: 

LDA $30 
LSR 

BCS $F471 
EOR #$C0 

INCRX: 

$F48A: 

LDA $30 
ASL 

EOR #$80 
BMI $F46E 

INTY: 

$F4D3: 

BMI $F505 

DECRY: 

$F4D5: 

CLC 

LDA $27 
BIT $F5B9 
PNE $F4FF 

INCRY: 

$F505: 

CLC 

LDA $27 
ADC #$04 
BIT $F5B9 

HPLOT: 

$F457: 

JSR $F41 1 
LDA $1C 
EOR ($26), Y 
AND $30 
EOR ($26), Y 
STA ($26), Y 
RTS 

HLINE: 

$F53A: 

PHA 

SEC 

SPC $E0 
PHA 
TXA 
SPC $E1 


AN APPLE II QUICKIE 

by Gordon Stallings 
Tulsa Computer Society 


Flere is a simple program which 
has been in use by the TCS Apple 
Users for the past year, and which 
should be more widely known: 

To copy a cassette tape from one 
recorder to another, you can use 
the Apple II as an intermediary to 
restore the signal levels. 



Put this program into the Apple II: 


0000 20 FD FC JSR $FCFD 
0003 AD 20 CO LDA $C020 
0006 4C 00 00 JMP $0000 

Start the program*; *0G 
As long as this program is run- 
ning, any signal received from re- 
corder #1 will be sent to recorder 
#2. For best results, the following 
tips should be observed: 

1 . Be sure that Recorder #1 is set 
up to reliably read the tape which 
you are wanting to copy-volume, 
tone, and head alignment must be 
set so that the Apple can read the 
tape. 

2. Recorder #2 should have cor- 
rect head alignment so that the new 
tape will be compatible with other 
machines. 


HOW IT WORKS 

The JSR calls subroutine $FCFD in 
the Monitor ROM, which watches 
the cassette input port waiting for a 
change of state, which indicates a 
zero-crossing on the playback tape. 
When the transition occurs, the 
subroutine RETURNS. The LDA 
$C020 toggles the cassette output 
port, recording a transition on the 
new tape. The JMP closes a pro- 
gram loop which can only be 
broken by RESET. 
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PRACTICAL SUPER HIRES GRAPHICS 

by R. H. Good 
California State University 
Hayward CA 


Bob Bishop's article in the Fall 
1980 Apple Orchard serves its di- 
dactic purposes admirably in show- 
ing that resolution of 560x192 is 
attainable with Apple II. But the 
program he presents in his Fig. 4 
has two substantial defects: it is 
slow, and it leaves occasional dark 
segments (particularly noticeable 
on a color TV monitor). 

Both problems can be alleviated 
with little trouble. The secret is to 


3LIST 
5 REM 


LINE DEMO * R H GOOD 


10 HGR 
20 REM 

HPLOT 


FI PLOT successive vertical seg- 
ments of steep lines as follows: 

HCOLOR = 3, HPLOT first segment; 

HCOLOR = 7, HPLOT second seg- 
ment; increment x by 
1 ; 

HCOLOR = 3, HPLOT third seg- 
ment; 

HCOLOR = 7, HPLOT fourth seg- 
ment; increment x by 
1 ; and so on. 


Note that HCOLOR = 7 automati- 
cally plots things one-half x unit to 
the right of HCOLOR = 3. A black 
line, HCOLOR = 4, helps make the 
segments uniform. 

Here is Bishop's example again, 
with its two nearly-vertical lines, to 
which has been added a third line 
drawn by the improved procedures 
outlined above. 


160 

IF MX 

= 2 THEN HC0L0R= 1 

170 

IF M% 

= 3 THEN HC0L0R= 5 

180 

HPLOT 

XX / 2*Y 

190 

NEXT 


200 

PRINT 

CHR* ( 07 >♦ REM BELL 

220 

REM 



RHG00D 


230 X = 150 


40 

PRINT CHR* <7>J 

REM BELL 

240 

D = 159 

/ 

20 

50 

HC0L0R= 3 



250 

FOR Y = 

0 

TO 150 STEP D 

60 

HPLOT 130* 

0 TO 140*156 

260 

HCOLOR= 

4 


70 

PRINT CHRt <7)1 

REM BELL 

270 

HPLOT X 
— 1 

+ 

3»Y TO X + 3* Y + 





280 

1 

HCOLOR= 

7 


100 

REM 



290 

HPLOT X 

* Y 

TO X»Y + D - 1 





300 

HCOLOR= 

3 


BISHOP 



310 

320 

X = X + 
Y = Y + 

1 

D 






330 

HPLOT X 

* Y 

TO X* Y + D 

110 

FOR Y = 0 

TO 156 

340 

NEXT 



120 

XX = 280 + 

Y / 8 


350 

PRINT 

CHR$ (07)i REM BELL 

130 

XXX = XX / 

4 1 MX = 

XX - 4 * XX 

360 

PRINT 

TAB< 21 >" HPLOT" 


X 



370 

PRINT 

TAB< 22 ) M BISHOP" 

140 

IF MX = 0 

THEN 

HC0L0R= 2 

380 

PRINT 

TAB( 24 )"R H GOOD" 

150 

IF MX = 1 

THEN 

HCOLOR= 6 

390 

CALL - 

756t TEXT : END 
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COMPARING APPLESOFT 
PROGRAMS FOR DIFFERENCES 

By Charles Boody, David W. Walker 
and Val J. Golding 
Call -A.P.P.L.E. 


In the luly/August 1980 Call 
-A.P.P.L.E., Charles Boody wrote: 

"I often use programs that are 
published in various journals, 
and almost always find they lack 
some small (or sometimes some 
large) pieces that will make 
them more useful for me. Once 
I have made the changes or ad- 
ditions, I would often like to 
pass the changes on to others in 
the form of an article or list of 
changes. Unfortunately, it is dif- 
ficult to remember what 


changes have been made in 
which lines of what parts of 
which subroutines, and how 
those changes affect other parts 
of the program. I also often find 
myself with more than one ver- 
sion of a program; my own or 
public domain ones, that seem 
to have small differences that 
are very hard to trace down. 
Sometimes too, I find that I have 
kept several versions of a pro- 
gram under development, but 
am not sure about the detailed 
differences in them." 


To alleviate some of those prob- 
lems, Boody wrote the COMPARE 
program. Subsequent to the publi- 
cation of the COMPARE program, 
we received a letter from David W. 
Walker who added some changes 
to the original program which he 
felt were significant changes, and 
we agree. In addition, Walker made 
several nice, but purely cosmetic 
changes. Interestingly enough, the 
form in which he submitted the 
changes to us was a printout pro- 
duced by the COMPARE program, 
which for us made the work of up- 
dating the original a breeze! 


10 REM 3LIST 

COMPARE CAPTURER BY VAL J GOLDING 100 REM 

COMPARE PROGRAMS ROUTINE 


100 D* = CHR* < 13 ) + CHR* <4)t0 
P* = "OPEN" : WR* = "WRITE" tCL 
* * "CLOSE": INPUT " PROGRA 
M NAME TO CREATE TEXTFILE FR 
0M ?"JNAME*:FILE* = NAME* + 
"*T"t PRINT D*»0P*"LIST *"NAM 
E*»D*»WR*" LIST ."NAME** PRINT 
"LOAD" J NAME* 

no dl* = "deletelist. m :txt* = ": 
text :delo,o: end- :cmd* * h :ho 
me:poke33»33:listi-:":ch* * 
"?chr*<4)":pt* = "? u :c* = b : 
":q* = chr* < 34 >:zero* = " 

0 " + CH* + G* + OP* + FILE* 

+ Q* + C* + CH* + Q* + WR* + 
FILE* + 0* + CMD* + CH* + G* 

+ CL* + G* + C* + CH* + G* + 
DL* + NAME* + Q* + TXT* 

120 PRINT ZERO*: PRINT “RUN": PRINT 
D*" CLOSE" 

130 PRINT D*"EXECLIST,"NAME*" 


BY CHARLES G. BOODY 

ADAPTED BY DAVID W WALKER 

110 D* = CHR* (13) + CHR* (4): 
PRINT D*"N0M0NCI0" 

120 GOTO 2000 
150 ONERR GOTO 810 
160 GOTO 340 : REM 

200 REM 

GETS STATEMENT FROM THE OLD FILE 


210 LET OS* = "": PRINT D*i "READ 
"JO* 

220 GET A*: IF A* < > CHR* (13 

) OR LEN (0S*> = 0 THEN IF 
LEN (OS*) < 255 THEN OS* = 
OS* + A*: GOTO 220 
230 RETURN 
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The COMPARE program requires 
that you first write your object pro- 
grams to a text file which it can 
read. This is handled entirely auto- 
matically by our COMPARE CAP- 
TURER, which requires only that 
you supply it with the name of the 
program you wish to create a text 
file from, and that this program has 
no line numbered zero. 

The CAPTURER program will first 
create a temporary text file named 
"LIST. FILENAME", which it will later 
delete when it has served its pur- 
pose. CAPTURER then EXECs this 
file, which in turn lists the BASIC 
program to a text file named "FILE 
NAME.T". When the "old" and 
"new" files have been created, just 
run the COMPARE program, which 
will ask you for the names of the old 
and new programs. The suffix ".T" 
should not be added; COMPARE 
will do this itself. 

It should be noted that program 
lines longer than 255 characters will 

250 REM 


be truncated by the COMPARE pro- 
gram, and that certain control char- 
acters may produce unexpected 
events. For example, a REM line 
which contains a Control M, [Car- 
riage Return] (such as in the COM- 
PARE program itself) will result in 
COMPARE believing that the data 
following the Control M is a separ- 
ate program line, even though there 
is no line number. 

Printer protocol is established in 
the group of lines commencing at 
1000, and line 1110 assumes you 
have a printer card requiring a Con- 
trol I. In both lines 1110 and 1 120, 
the variable establishes a default of 
70 characters per line for the 
printer. This may be changed to suit 
your specific needs. 

That the program works is at- 
tested to by a page of sample out- 
put, which compares "CREATE3" 
(an early version of the EXEC file 
writer) and "COMPARE CAP- 
TURER", the final version. 


When entering COMPARE CAP- 
TURER, it would be a good idea to 
not enter the extraneous spaces in 
the latter half of line 1 1 0, or a "TOO 
LONG ERROR" may result. The 
CAPTURER should also serve as a 
reasonably well written example of 
how to write a text file that writes a 
text file. Q$ is set to equal 
CHR$(34), the double quote ("), 
and is used when required to place 
a PRINT statement within a PRINT 
statement. 

We have preferred to keep this 
type of shenanagin to an absolute 
minimum by almost entirely using 
strings instead of PRINT statements. 
The strings are defined in line 100 
and in the first part of line 110, 
while the latter part of 1 1 0 is almost 
exclusively concatanenation . 
ZEROS is the villain in this one, as it 
is later EXECed into the object pro- 
gram and run, causing the object 
program to list itself to the second 
text file. 


GETS STATEMENT FROM THE NEW FILE 


260 LET NS* = PRINT D* ? “READ 

,# ;n* 

270 GET A* t IF A* < > CHR* (13 

) OR LEN (NS*) = 0 THEN IF 
LEN (NS*) < 255 THEN NS* * 
NS* + A*: GOTO 270 
280 RETURN 
300 REM 

PRINTS A STATEMENT WITH A 
LINE LENGTH OF LL 

310 II * 0 

320 10 = II + 1 t II * II + LLJ POKE 
36,9t PRINT MID* (J*,I0,LL> 
t IF II < LEN (J*> THEN 320 


330 RETURN 

340 PR I NT D* " OPEN" 0* ? B* " OPEN" N* 
350 G0SUB 210 1 G0SUB 260 1 REM 


355 IF LEFT* (0S*,1> = J3HR* (1 

3) THEN OS* = RIGHT* <0S*, LEN 
( OS* ) - 1 ) 

360 IF LEFT* (NS*,1> = CHR* (1 

3) THEN NS* « RIGHT* (NS*, LEN 
( NS* ) - 1 ) 



ICROCOMPUJERJ 


50 Belvedere Street, San Rafael, CA 94901 (415)454-6500 


Finally . . . The Hi-res Baseball that’s as good as the Apple! . 

by Arthur Wells A 

$24.95/32K/Disk/ Applesoft or Integer 


/l/Iicro-Lgggue 



'Baseball 




8 different pitches, 6 different 
swings 

• 3-D effect on fly balls 

• Player controlled fielding 
and throwing 

Vocal umpire 

Complete electronic score 

board 

Beautiful stadium in full color 


A great hi-res lunar lander, just like the arcade game! 
by Bill Budge creator of Trilogy and Penny Arcade 

$24.95/48K/Disk/ Applesoft or Integer 


• Landscape scrolling 

• Auto-zoom for landing site 
close-up 

• Player control of 360° craft 
rotation 

• Spectacular crashes 

. Always challenging . . . 
Improve your scores as you 
improve your skill! 



Calif. Residents Add 6 %Sales Tax. No C.O.D.’s. Add $2.00 for Shipping 
& Handling. Use Check, Money Order, VISA or MASTERCARD. (We 
need expiration date on charge card.) DEALER INQUIRIES INVITED. 


APPLE n is a registered trademark of Apple Computer, Inc. 
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Computer Station 
12 Crossroads Plaza 
Granite City, 1L 62040 
(618) 452-1860 

COMPUTER STATION proudly offers a high-speed binary 
video digitizer for the Apple II called the DITHERTIZER II. 
The peripheral board uses a video camera with external sync 
to load the hi-res page of the Apple with any image the 
camera can capture. The DITHERTIZER II is a frame grab- 
ber, DMA type digitizer requiring only V 60 th of a second to 
capture a binary image. Software supplied with the board 
enables building dithered images and capturing image inten- 
sity contours. Intensity and contrast are user controllable via 
the game paddles. Matrix size for dithering changable with 
one keystroke. Requires video camera. With external sync; 
recommended model, Sanyo VC1610X. 

DITHERTIZER II, $300; B/W SANYO 
VIDEO CAMERA, $410; PACKAGE OF 
DITHERTIZER II AND CAMERA, $650. 



GRAPHIC DUMPS: COMPUTER STATION offers the 
highest degree of human engineering on the market for hard 
copy graphics from the hi-res pages of the Apple. The follow- 
ing machine language dump routines are available for BASIC: 
IDS440G / 445G * $44.95 

IDS460G * 44.95 

ANADEX9501 44.95 

NEC SPINWRITER 5510 44.95 

NEC SPINWRITER 5520 44.95 

* Also availabe for use with Pascal, $44.95. 
GRAPHICWRITER: Hard copy of character sets found in 
DOS Tool Kit for use with Applewriter or print statements in 
your own programs. Requires DOS 3.3, DOS Tool Kit, one 
of graphic printers below: 

Silentype $34.95 

IDS440G / 445G 34.95 

IDS460G 34.95 

V1SILIST: Get hard copy of the FORMULAS used in 
VIS1CALC models. Prints grid location, contents (formulas 
or labels), and global parameters. Handy utility for all 
VIS1CALC users. $24.95 

PROGRAMMER’S GUIDE TO THE APPLE II: Thick 
reference card (40 page booklet). $4.95 

PROGRAMMERS HANDBOOK TO THE APPLE II: 

$29.95 

Send or call for free catalog. * 


400 REM 

IF BOTH STATEMENT NUMBER AND 
CONTENTS AGREE r THEN IGNORE 

410 IF UAL (OS*) = VAL ( NS* ) AND 
OS* = NS* THEN 350 t REM 


IF LINE NUMBERS ARE THE SAME BUT 
CONTENTS DIFFER » THEN PRINT 
•CHANGED" AND GET NEXT STATEMENT 

510 IF VAL (OS*) = VAL (NS*) AND 
OS* < > NS* THEN PRINT J PRINT 

"CHANGED " » t J* = OS**. G0SUB 
310 J PRINT "TO "JJJ* = NS*t G0SUB 
310 J GOTO 350 l REM 


600 REM 

IF OLD LINE NUMBER < NEW LINE 
NUMBER THEN OLD LINE IS DELETED? 
FETCH NEXT OLD LINE 


610 IF VAL (OS*) < VAL (NS*) THEN 
PRINT t PRINT "DELETED 

* = os*t gosub 310 : gosub 21 

0: GOTO 410 : REM 


IF NONE OF THE ABOVE , THEN THE 
NEW LINE IS ADDED. PRINT "ADDED" 
AND FETCH NEXT NEW LINE 


710 PRINT " ADDED "»:J* = NS*: GOSUB 
310 : GOSUB 260 : GOTO 410: REM 


800 REM 





Apple II is a registered trademark of Apple Computer, Inc. VISICALC is a 
registered trademark of Personal Software, Inc. DITHERTIZER II is a registered 
trademark of Computer Stations, Inc. 


WHEN ONE FILE IS EXHAUSTED » 
DETERMINE WHICH AND INDICATE 
REMAINDER OF OTHER "ADDED" 

OR "DELETED" » AS CASE MAY BE 


810 X = PEEK (218) + PEEK (219) 

* 256J POKE 216, 0: 0NERR GOTO 
910 

820 IF X > 230 THEN 840 
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830 GOSUB 260 ; PRINT l PRINT "AD 

bed : n ; : j* = ns*; gosub 310 ; goto 

830 

840 IF VAL <0S$) < > UAL < NS* 

) THEN PRINT i PRINT "DELET 
EDt"?iJ$ = OS*; GOSUB 310 
850 GOSUB 210 l PRINT t PRINT "DE 

leted;*j;j* = os*; gosub 310 

: GOTO 850 : REH 
900 REM 

ASSUME END OF DATA ERROR IN 
LAST FILE AND END PROGRAM 

910 PRINT i PRINT "END OF COMPAR 
ISONS"! PRINT D* “ CLOSE "D*" PR 
#0"t END t REM 

1000 REM 

PRINTER SUBROUTINES 


1010 PRINT "PRINTER OR CRT? "Jt GET 
PR*; PRINT PR* 

1020 IF PR* » "C" THEN PR = 01LL 
= 30 ; RETURN 

1030 INPUT "ENTER PRINTER SLOT 0 
R CALL "iPR; RETURN 
1100 IF NOT PR THEN RETURN 
1110 IF PR < 8 THEN PRINT D*"PR 
#"*PR; PRINT CHR* (9)* CHR* 
<26>;LL = 70 ; RETURN 
1120 CALL PR! PRINT CHR* <26>;L 
L = 70; RETURN ; REM 

2000 TEXT ; HOME ; PRINT ; PRINT 


2010 TI* = " PROGRAM COMPARER " 

2020 HTAB 20 - LEN < TI* > / 2X INVERSE 
; PRINT TI*; NORMAL 
2030 PRINT ; PRINT 
2040 PRINT " This proslrsm wi 
11 compare two ver- sions of 
3 program and produce a lis 
t ofthe differences between 
them* "f 

2050 PRINT "Both prodrams mu 
st be in teMtfiles? use the 
prodram " CHR* <34>"C0NPARE 
CAPTURER." CHR* < 34 ) 

2060 PRINT ; PRINT “What is the 
name of the OLD version?" 

2065 INPUT 01* ;0* « 01* + M .T" 

2070 PRINT ; PRINT "What is the 
name of the NEW version?" 

2080 INPUT N1*;N* « Nl* + "*T" 


2085 PRINT ; INPUT "What is toda 
w's date? " »DT* 

2090 PRINT ; PRINT ; GOSUB 1000 

2100 HOME t VTAB 9 

2110 IF PR THEN PRINT "MAKE SUR 
E THE PRINTER IS READY * THEN 

U 

2120 INPUT " HIT C RETURN 3 

TO RUN "JXX* 

2130 TEXT I HOME 

2140 GOSUB 1100 

2150 XX* = ****** COMPARISON OF ** 
**" 

2160 GOSUB 2500 

2170 PRINT tXX* « 01*; GOSUB 250 
0 

2180 PRINT ;XX* » "and"; GOSUB 2 
500 

2190 PRINT IXX* * Nl*; GOSUB 250 
0 

2200 PRINT ; POKE 36*40 + 40 * < 
PR > 0 > - < 10 + LEN < DT* ) >; 
PRINT "Prepared; "BT*J GOTO 
150 

2500 POKE 36»< 20 + 20 * (PR > 0) 
) - LEN <XX*> / 2; PRINT XX 
*; RETURN 


KEYBOARD RECORDER 

This program generates a keyboard file by 
monitoring and recording keyboard input. It can 
be used together with the System Monitor, BASIC 
or DOS, and is transparent to other programs 
receiving the input. The keyboard file can be 
selectively played back in a similar manner as the 
disk EXEC command to avoid repeated typing of 
the same input. A user may review the file on the 
screen, or save and load the file by using tape or 
disk. It saves time and storage space during pro- 
gram development and revision by keeping rec- 
ords of program changes or doing automatic pro- 
gram testing. 

DISKETTE OR CASSETTE: $25.95 (with docu- 
mentation; specify DOS 3.2 or DOS 3.3 for disk) 

SINGLE DRIVE DISK COPY 

This program makes disk copying easy and er- 
ror free. It uses only one disk drive to copy some 
or all sectors on the disk. 

DISKETTE ONLY: $11.95 (specify DOS 3.2 or 
DOS 3.3, APPLE II or 11 + ) 

Zeus Computing, A1 
P.O. Box 712 
Downey, Ca. 90241 
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ADDED 

ADDED 

CHANGED 

TO 


CHANGED 

TO 


ADDED 

CHANGED 

TO 

CHANGED 

TO 

deleted: 

deleted: 

deleted: 


*«** COMPARISON OF **** 
CREATES 


and 

COMPARE CAPTURER 


Prepared: 2/8/81 


10 REM 


COMPARE CAPTURER BY UAL J GOLDING 


100 Df « CHRf (13) + CHRf (OK INPUT "PROGRAM NAME TO CREATE TEXTFIL 
E FROM " fNAM£$:FILE* = NAME* + ".T": PRINT Df "OPENLIST ."NAMEf JDf "WRITE 
LIST. "NAMEf: PRINT "LOAD" i NAME* 

100 Df = CHRf (13) + CHRf (4):0Pf * "OPEN" :WRf * "WRITE" :CLf = "CLOS 
E": INPUT " PROGRAM NAME TO CREATE TEXTFILE FROM ?" t NAMEf :FILEf * NAM 
Ef + "*T": PRINT Df »OPf "LIST ."NAMEf JDfrWRf "LIST ♦ "NAMEf : PRINT "LOAD" »N 
AMEf 


110 Qf = CHRf ( 34 ).CMDf * "OPEN":ZEROf = " 0 Df=CHRf( 13 )+CHRf( 4 KPRIN 
TDf f " + Qf + CMDf + FILEf + Qf .CMDf = "WRITE" :ZEROf = ZEROf + ":PRINT 
Df f + Qf + CMDf + FILEf + Qf {CMDf * "CLOSE" :PRNTf * " PRINT " + CHRf 
(34) 

110 DLf = "DELETELIST ♦" :TXTf = ": TEXT :DEL0»0:END" : CMDf = " : HOME : P0KE33 
»33:LisTi-:":cHf = -?CHRf(4 )":PTf = :cf = -:-:Qf = CHRf (34):zER0f 
= " 0 " + CHf + Qf + OPf + FILEf + Qf + Cf + CHf + Qf + WRf + FILEf + 
Qf + CMDf + CHf + Qf + CLf + Qf + Cf + CHf + 


Qf + DLf + NAMEf + Qf + TXTf 


120 ZEROf = ZEROf + ": HOME: P0KE33» 33: LIST:" + " PRINT Df" + Qf + CMDf 
+ Qf + " :TEXT:PRINTDf " + Qf + "DELETELIST." + NAMEf + Qf + ":END" 

120 PRINT ZEROf: PRINT "RUN": PRINT Df "CLOSE" 

130 PRINT ZEROf: PRINT "RUN": PRINT " 0" 

130 PRINT Df"EXECLIST. "NAMEf* 


200 PRINT Df" CLOSE- 

210 PRINT Df"EXECLIST. "NAMEf" 

220 END 


END OF COMPARISONS 
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2 SIDED DISKS 


Edited by D. Buchler of Mini'App'les from material 
supplied by Dysan Corporation 


Reversing Media on Single Head 
Flexible Disk Drive 

Flexible Disk Drives (floppys) of- 
fer the end user low cost random 
access to data records. Prior to the 
introduction of the floppy, the only 
other alternatives were sequential 
tape cassettes, low cost one-half 
inch tape, or single cartridge hard 
media disk drives. The floppy disk 
has been an ideal peripheral for low 
cost systems. 

There has been a tendency by 
some end users to economize by at- 
tempting to use the media on both 
sides in a single head drive. We 
most not lose sight of the fact that 
the value of the data stored on 
diskettes exceeds the cost of the 
media by a wide margin. Loss of 
data on either read or write means 
time delays, reconstruction of lost 
data, and customer dissatisfaction 
with the system, drive and/or manu- 
facturer. All of this can be avoided 
in advance if the end user is made 
aware of the whys and why nots. 


Head Shoe and Pad operation - 

The relationship of the head to 
the media is such that when the 
jacket is properly inserted, and all 
interlocks are satisfied, the head is 
loaded on to the media on the 
recording side, and a felt loading 
pad is applied to the non-recorded 
side. In a Shugart disk drive this is 
the top of the disk. In normal opera- 
tion, a gradual build up of oxide will 
accumulate on the pressure pad. 
There might even be some wear on 
the non-recorded side due to a 
scouring action of the oxide 
impregnated pad. 

If the media is reversed, that is 
turned up side down, the scouring 
action will now occur on the prime 


recorded side, and the previously 
scoured side is now presented for 
recording. The recorded data is 
now subjected to an abrasive wear- 
ing by the contaminated load pad. 
Since this data is not being read, 
there is not any means of detecting 
the amount of wear or the loss of 
data. While a catastrophic failure 
might not occur, it is possible that 
some drop out or other read errors 
might go undetected. Worse yet, is 
the possibility that the error condi- 
tion might be intermittent, which 
makes the entire operating system 
suspect. 

Another adverse effect of revers- 
ing the media is caused by reversing 
the direction of rotation of the 
media against the jacket. This re- 
versal of direction is apt to "break 
off" any build up of oxide particles. 
This presents a potential loose con- 
taminant situation. 

The net effect of this reversing (or 
flipping) action over a period of 
time, is to reduce performance and 
increase the probability of drop 
outs and errors. 

Diskette tensioning 

On most Floppy Disk Drives, 
when the diskette is properly in- 
serted and operation has begun, 
pressure is applied to the jacket on 
both sides so that proper tension is 
created on the flexible media prior 
to the recording head. This also 
provides a wiping action of the liner 
material against the flexible media. 
When the jacket is reversed, or 
flipped, the direction of rotation is 
reversed, breaking loose any extra- 
neous particles built up by prior 
wiping. Thus, reversing the media 
increases the probability of extra- 
neous contamination and again in- 
creases the probability of errors. 


Two head Drives 

The above problem areas do not 
occur on two-head drives that are 
designed for two-sided applica- 
tions. On a two-head drive, the 
pressure pad has been replaced by 
a second head mounted on a 
ceramic shoe. The operation now 
consists of a head-media-head rela- 
tionship. The soft pressure pad with 
possible oxide build up has been 
eliminated. 

The diskette tensioning apparatus 
is the same on one and two-head 
drives. Since media spin direction is 
not reversed by flipping, the oxide 
break off problem does not occur. 


Summary 

The foregoing summarizes the 
reasoning why Dysan and major 
OEM suppliers of diskette drives do 
not recommend two-sided media 
for one-head drive operation. 
Dysan feels the potential operating 
problems would make an unwar- 
ranted reflection on its reputation 
by using media in an unsuitable 
fashion. When IBM introduced the 
3740 diskette, they intentionally in- 
terlocked reversal possibilities by 
offsetting the index hole from the 
centerline. IBM does not make a 
reversable diskette. DYSAN does 
test and supply two-sided media for 
operation in two-head (two sides) 
disk drives. Note that the standard 
diskettes are not certified for opera- 
tion in two-head drives! 

Some club members have re- 
ported problems in using both sides 
of a diskette. While those problems 
cannot be proven to be related to 
any of the above types of occur- 
rences, it would seem wise to fol- 
low DYSAN's advice. Members 
have argued that the manufacturers 
are trying to sell more disks. How- 
ever, not one of them has come out 
and recommended two side opera- 
tion or even sold diskettes with two 
slots cut. Another argument heard 
frequently is that the member is us- 
ing the second side for backup. 
Well you might get away with it, but 
I challenge anyone to religiously 
avoid using that reverse side except 
for the occasional update to create 
the backup. I myself plan to stick to 
one side from now on. 
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S. H. LAM ROUTINE UTILITY 

by Lee Reynolds 
Call -A.P.P.L.E. staff writer 


S. H. Lam's Routine to set up ma- 
chine language routines within a 
BASIC program has been used by 
various authors submitting to CALL 
-A.P.P.L.E. and other magazines. 
The usage of this routine is best 
covered in the article "Hiding Out 
in Basic", by Val Golding, in the 
June 79 issue of CALL -A.P.P.L.E. 

I have often used this routine my- 
self in my own programming. My 
usual method has been to: (1) 
create the machine code using my 
assembler, (2) assemble it into 
memory, and (3) go into the Moni- 
tor and laboriously copy down the 
hexadecimal values to be passed to 
Lam's routine in a string. Recently, 
however, I thought: why not let my 


computer save me some energy in 
step (3) above? This is my justifica- 
tion for the program whose listing 
accompanies this article. The pro- 
gram will automatically create a 
Text File containing the necessary 
statement(s) to call Lam's routine 
after setting up the string or strings it 
requires. The format of these state- 
ments in the Text File is: 

(linum) A$= (monitor string): 
GOSUB (1st linum - 10) 

CALL - 144 

The value of (linum) above is 
asked for by the program, which 
will also ask the name of the binary 
file to BLOAD, BLOAD it, and as- 
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sign a ".T" suffix to the name of the 
Text File to be created. 

If more than one BASIC statement 
must be generated to process the 
machine language code, then sub- 
sequent line numbers increase by 
10. (You could change this, if you 
wish, by modifying line 470.) 

After you've used the program to 
create this Text File, you now need 
only EXEC it into your program that 
uses the machine language routine. 

You will note that the name of the 
string variable passed as an argu- 
ment to Lam's routine is A$. You 
could change this also, by modify- 
ing two lines in my program, 
namely 410, 430 and 470. (If you 
use Lam's routine in an Integer 
Basic program, remember that you 
must DIMension the string variable. 
As the program stands now, the 
maximum length of the string is 96 
characters- not counting the extra 
8 characters added on by Lam's 
routine.) 

All functions are fully automatic, 
other than the specification of the 
line numbers to be assigned. The 
program will BLOAD the machine 
code, determine the starting ad- 
dress and length, write and save the 
Text File. 

I hope that you will find this utility 
of value in your future program- 
ming. 


10 REM 


S»H» LAM ROUTINE UTILITY 


BY LEE REYNOLDS 
CALL -A*P»P*L*E* STAFF WRITER 


100 DIM HD*( 16 )iD$ = CHR$ (13) + 
CHR* <4>:Q* = CHR* (34) 

110 G0SUD 700 J GOTO 200 
120 J = INT (BYTE / 16KHEX* = H 
D$( J + 1)JJ as BYTE - 16 * j: 
HEX* * HEX* + HD*( J + 1) till 
RETURN 

130 BYTE » INT (I / 256 )J GOSUB 
1201 RETURN 

140 BYTE = I - 256 * BYTE: GOSUB 
120 t RETURN 

150 PRINT t PRINT : INVERSE l HTAB 
8J PRINT • HIT ANY KEY TO CO 
NTINUE NORMAL : CALL - 7 
56t HOME : RETURN 
200 DATA "0"f"1"f"2"f“3" f m 4"f"5 
m f n 6 m 9 m 7*?*8 H ?"9 m f*P> m f "B" 9 m C 
■f-B-f-E-F-F": FOR I = 1 TO 
16: READ HD*(I>: NEXT I 


210 MEMSIZ = PEEK <?78):MEMSIZ = 
(MESIZ + 13) * 256:MEMAD = M 
EMSIZ + 114 :A1 = PEEK ( MEMA 
D ) + PEEK ( MEMAD + 1 > * 256 
:MEMAD = MEMAD - 18:A2 = A1 + 
( PEEK (MEMAD) + PEEK (MEMA 
D + 1 ) * 256 ) 

220 VTAB 8: INPUT "BINARY FILE N 
AME? " 5FILE*: VTAB 10 : INPUT 
"BEGINNING LINE*? "JLINE*:SU 
B* = LINE*:LINE = VAL (LINE 
*) + 10:LINE* a STR* (LINE) 


230 PRINT D* tt BLOAD" FILE*: FILE* * 
FILE* + " ♦T" 
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400 ADDR = A2» I = Alt GOSUB 130 t A 
1$ = HEX*: GOSUB 140tAl* = A 
1* 4 HEX* 

410 X* = LINE* 4 " A*= " 4 Q* 4 A 
1* + -ftL = LEN (X*) 

420 PRINT D*" OPEN" FILE*»D*" WRITE 
"FILE* 

430 RT* = Q* 4 "ND823G" 4 Q*t PRINT 
" " SUB* * " A*=A*+"RT*" t FOR I 
= 1 TO LEN ( A* >t POKE 511 
4 1* ASC ( MID* ( A*»I*1 )) 4 
128: NEXT : POKE 72»0: RETUR 
N " 

440 FOR ADDR = A1 TO A2: :BYTE = 
PEEK (ADDR): GOSUB 120 :X* * 

X* 4 HEX* 4 ” ":L = L 4 3: IF 
L < 100 THEN 490 

450 X* » X* 4 Q* 4 “: GOSUB" 4 SUB 
* 4 "tCALL-144": PRINT X* 

460 IF ADDR = A2 THEN 500 

470 LINE = LINE 4 1011 = ADDR 4 1 

: gosub i3o:x* = str* (line 

) 4 " A*= " 4 Q* 4 HEX*: GOSUB 
140 

480 X* = X* 4 HEX* 4 ":":L = LEN 
(X*) 

490 NEXT ADDRIX* = X* 4 Q* 4 " :G 
OSUB" 4 SUB* 4 ":CALL-144": : 
PRINT X* 

500 PRINT D* J " CLOSE" f FILE*: END 


700 HOME : PRINT "S. H. LAM ROUT 
INE UTILITY": PRINT : PRINT 
"THE LAM ROUTINE IS A WAY OF 
STORING A MACHINE LANGUAG 
E ROUTINE INTO MEMORY FRO 
M INTEGER BASIC OR APPLESOFT 
, SEE THE ARTICLE "G*"HID 
ING OUT IN BASIC"Q*" IN" 

710 PRINT "THE JUNE '79 CALL -A. 
P.P.L.E. YOU COULDWRITE A T 
EXT FILE CONTAINING THIS ROU 
T- INE* THEN EXEC THE FILE I 
NTO A PROGRAM * " : PRINT : PRINT 


720 PRINT "THE PRESENT PROGRAM W 
ILL LIKEWISE CREATEA TEXT FI 
LE CONTAINING THE LINES NEED 
ED TO EXECUTE THE LAM ROUT IN 
E, AS WELL AS STORE THE STR 
INGS THAT IT REQUIRES*" : GOSUB 
150 


730 NORMAL : HOME : HTAB 61 PRINT 
"to use this utility:* 1 : PRINT 

: PRINT " 1* BLOAD YOUR MACH 
INE LANGUAGE ROUTINE INTO M 
EMORY BY ENTERING THE FILE N 
AME.": PRINT : PRINT " 2. EN 
TER THE STARTING LINE NUMBE 
R TO BE USED BY THE EXEC F 
ILE." 

740 PRINT : PRINT " 3* EXEC THE 
NEWLY CREATED FILE INTO 
YOUR PROGRAM AND ENTER A LIN 
E THAT WILL GOTO THE SE 

COND LINE OF THE LINES CREA 
TED BY THE EXEC FILE." 

750 PRINT : PRINT "NOTE: A* IS 

THE NAME OF THE STRING USEDI 
N THE EXEC FILE* AND MAY EAS 
ILY BE CHANGED. LINE NUM 
BERS IN THE EXEC FILE WILL 
BE INCREMENTED BY 10.": GOSUB 
150 : RETURN 

900 REM 


BY LEE REYNOLDS & VAL J GOLDING 




The Most Powerful Disk-Based 
Macro Assembler/Text Editor 
Available at ANY Price 


Now includes the Simplified Text Processor (STP) 

For 32K PET, disk 48K APPLE II 

3.0 or 4.0 ROMS or —OR— or APPLE 11 + 

8032 (specify) and DISK II 

MAE FEATURES 

— Control Files for Assembling Multiple named source files 
from disk 

— Sorted Symbol table — Up to 31 chars./label 

— 27 Commands, 26 Pseudo-ops, 39 Error Codes 

— Macros, Conditional Assembly, and a new feature we developed 
called Interactive Assembly 

— Relocatable Object Code 

— String search and replace, move, copy, automatic line 
numbering , etc. 

STP FEATURES 

— 17 text processing macros 

— Right and left justification 

— Variable page lengths and widths 

— Document size limited only by disk capacity 

— Software lower case provision for APPLE II without lower 
case modification 

ALSO INCLUDED 

— Relocating Loader 

— Sweet 16 macro library for APPLE and PET 

— Machine Language macro library 

— Sample files for Assembly and text processing 

— Separate manuals for both APPLE and PET 
PRICE 

— MAE, STP, Relocating Loader, Library files, 50 page manual, 
diskette — $1 69.95 

SEND FOR FREE DETAILED SPEC SHEET 

EASTERN HOUSE SOFTWARE 
3239 LINDA DRIVE 
WINSTON-SALEM, N. C. 27106 

(919) 924-2889 (919) 748-8446 
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DOUBLE-SIZE GRAPHICS 
FOR THE SILENTYPE 

by Bruce F. Field 
Washington Apple Pi 


Let me start by saying that I think 
the Silentype printer is potentially 
one of the most versatile printers on 
the market. Most conventional 
printers available for the APPLE 
control the printer operation via 
microprocessors in the printer with 
the printer functions coded in 
ROM. These instructions that tell 
the printer how to operate are hid- 
den from the user, and in fact are 
unalterable by the user. You can 
only do as much as the manufac- 
turer will let you do. 

The Silentype on the other hand 
uses the microprocessor in the 
APPLE to control the printer func- 
tions with the instructions con- 
tained on a ROM on the printer in- 
terface card. What this means to the 
user is that the hardware functions 
of the printer (i.e. moving the print- 
head, printing a dot, and advancing 
the paper) are all controllable di- 
rectly by the APPLE! We are no 
longer tied to the software provided 
by the manufacturer and are free to 
do anything we want within the 
mechanical constraints of the 
printer mechanism. WOOPIE! 

Our only problem now is to find 
out how to control the functions of 
the printer. Well, APPLE "thought- 
fully" didn't provide any information 
on the ROM software or the printer 
hardware to allow this. Letters to 
APPLE didn't produce any results 
either. Enter Sandy Greenfarb. 
Sandy also was trying to get infor- 
mation on the printer and obtained 
through IAC (International Apple 
Core) a 1 4 page writeup* on how to 
move the head and print a dot, and 

*See p. 43 Winter Apple Orchard "Inside 
the Silentype Firmware". 


also a little on how the printer char- 
acter set is defined and used. Just 
what I wanted. The result is the ma- 
chine language routine presented 
here for printing either Hi-res 
graphics screen at double size. 

Using the routine is very simple; it 
uses the standard Silentype para- 
meters to control the printing. You 
simply BLOAD the DBL GRAPHICS 
routine into memory (it resides from 
$300 to $3C7 and so won't conflict 
with Applesoft, Integer Basic, or 
DOS). You can generate or load 
your hi-resolution picture either be- 
fore or after loading the DBL 
GRAPHICS routine. Then initialize 
the Silentype as you would nor- 
mally (PR#1 from BASIC if your 
printer is in slot 1) and set up the 
printer parameters as desired. In- 
stead of typing a control-Q to print 
the Hi-res screen, from BASIC you 
CALL 768 to activate this routine. 
The CALL can be placed inside a 
program or typed directly from the 
keyboard. If you are typing the 
CALL from the keyboard and don't 
want those words to appear on the 
printer, first reset the APPLE output 
to the screen (PR#0); the printer 
does not have to be "turned on" to 
print the graphics. 

As it is written, the routine is 
slightly slot dependent and assumes 
your printer interface card is 
plugged into slot 1 . It is very easy to 
change this if you use a different 
slot. The offending byte is at $30F 
hex or 783 decimal. This should be 
changed to $C0 + printer slot (hex) 
or 192 + printer slot (decimal). Once 
you do this, you can save it back to 
disk and not worry about it. 

For those of you who are old 
hands at the APPLE and know how 


the Hi-res graphics screen works, 
you can go on to the next article; 
otherwise I'm going to try to de- 
scribe how the routine works. First 
let me air a pet peeve. Most double 
size graphics printing routines I 
have seen (as for the Paper Tiger) 
chop off the sides of the screen 
when printed full double size be- 
cause the picture is a little too wide 
for the printer. This comes about 
because the characters on the 
APPLE screen are 5 dots wide with 
a 2 dot space between them. Forty 
characters on the screen means 280 
dot positions in the horizontal di- 
rection which is exactly the resolu- 
tion of the Hi-res screen. Most dot 
matrix printers however, print char- 
acters 5 dots wide with a one dot 
space between. For 80 column 
wide printers this means 480 dot 
positions, not quite enough to print 
the graphics double sized. The ob- 
vious solution (at least for me) is to 
print the graphics screen sideways 
on the printer! The vertical resolu- 
tion of the Hi-res screen is 192, 
times 2 is 384 which easily fits on a 
printer with 480 dot positions. So, 
guess which way my routine prints 
the screen? 

Now that I have that off my chest, 
let's dig a little deeper into how the 
routine works. A rather poor map of 
the Hi-res screen is shown on page 
21 of the new APPLE Reference 
Manual. (It would be handy to get it 
out now for reference.) This map 
shows an array of 40 boxes in the 
horizontal direction and 24 in the 
vertical direction. In the horizontal 
direction, each box controls 7 dots 
on the graphics screen. As ex- 
plained on page 19 of the manual, 
bits 0 through 6 control the seven 
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The tricks our IBMS software 
can make your Apple* do! 

The small businessman has never had it so good, or 
so easy. Because now there's our Interactive 
Business Management System (IBMS) . . . which 
lets your micro-computer perform like a larger 
unit, so you can mind, monitor and manage every 
aspect of your business accounting. 

A Full System 

While it's extremely easy to use, IBMS is a full 
system to handle the full job. The ten program 
modules can generate everything from the 
original invoice to the final profit/loss statements, 
plus many peripheral operations. The special 
Menu includes: System Start-up. Accounts Re- 
ceivable. Accounts Payable. Perpetual Inventory. 
Payroll. Fixed Assets. General Ledger. Plus Mailing 
Labels, and an Appointments Calendar. 

Save Maximum Time 

Since IBMS is a totally interactive system, multiple- 
entering of data is eliminated. Make an entry in 
one area and it automatically updates all con- 
cerned areas! No duplication of effort, no wasted 
time, no problems. 

Proven. And then some. 

It took 3 years to develop IBMS, including shake- 
down and on-site testing. As a result, it's reliable 
and versatile and its documentation is thorough 
and easily understandable. No wonder we con- 
sider it 5 years ahead of anything else available to 
the Apple II user. 

Introductory Offer 

The complete IBMS software package, on mini- 
floppy disks, documentation, and the backing of 
Programma International, Inc. is offered for a 
limited time at the Introductory Price of $1495.00. 
You'll be amazed how it can satisfy you ... by 
saving you time, effort, money and employee 
growth. 


W 5 

\ t' V 


r 


The Key to Business Management A f •' x 

.te,;::: , ,,X 


PROGRAMMA 

PROGRAMMA INTERNATIONAL, INC. 

2908 N. Naomi Street, Burbank, Ca 91504 
(213) 954-0240 

* Apple is a trademark of Apple Computer, Inc. 
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dots, with the least significant bit (bit 
0) controlling the left-most dot of 
the group. In the vertical direction, 
things are not organized in an or- 
derly fashion. Each box represents 8 
bytes in memory, with each byte 
corresponding to a different vertical 
position on the screen, and the bits 
within the bytes controlling the 7 
horizontal dots as explained above. 

Now let's see if I can straighten all 
this out with an example. Suppose 
we want to know the address of the 
byte that controls the 87th dot from 
the left on the 23rd line from the 
top of the screen. Twenty-three 
divided by 8 is 2, with a remainder 
of 7, so we go down to the third ver- 
tical box from the top, which has an 
address of 8448 (decimal), and we 
want the 7th line in that box, which 
means we add 6144 to 8448. (We 
go to the third box, because box 1 
controls lines 1-8, box 2 lines 9-16, 
etc., and we use the diagram in the 
lower right hand corner to find the 
number 6144 to be added to the 
base address.) Then we move over 
to the right to add in the contribu- 
tion of the horizontal position. 
Eighty-seven divided by 7 is 12 with 
a remainder of 3. So we go over to 
the 13th box (which is labelled 12 
because the numbering starts with 


0) which adds 12 to the address. 
Now we total up these numbers to 
get 14604 which is the address of 
the byte we want. That wasn't so 
hard, was it? By the way, to get ad- 
dresses for Hi-res page 2, we simply 
add 8192 to the addresses calcu- 
lated above. 

Since we now know how the 
screen works, let's print it. We are 
going to print it sideways, so we 
start at the lower left-hand corner, 
get a byte, print it, and work our 
way up; then move to the right one 
row and repeat. The way I'm doubl- 
ing the graphics size is to print a 
cluster of four dots to represent one 
dot on the screen. This doesn't im- 
prove the resolution; it just makes 
the picture bigger. 

The Silentype can print a line of 7 
dots at one time. This is okay for re- 
gular size printing, but for double 
size we are going to have to make 
two passes to print what corre- 
sponds to one column of bytes on 
the screen. Each byte contains 7 
bits of screen data which we are go- 
ing to print as 14 dots wide. The first 
pass starts at the label NXROW1 in 
the assembly code, gets the byte 
from the screen, and looks up in a 
table what should be printed, based 


on the 4 least significant bits in the 
byte. This is printed twice, and the 
program loops around to get the 
byte from the row above. When 
this is completed, the paper is ad- 
vanced, and the printer head re- 
turned to the left margin. The same 
process is repeated, except this 
time bits 4-6 of the byte are used. 
This completes the printing of the 
first seven dot columns of the 
screen; repeating this 40 times 
finishes the graphics dump. 

There are just two other things to 
take care of, and actually these 
come first in the program. APPLE 
warns against running the printer 
and the disk at the same time as this 
overloads the APPLE power supply. 
To prevent this, there is a wait 
routine at the beginning of the 
graphics dump to allow the disk to 
timeout and stop running from any 
previous disk operation. Also, since 
the graphics dump doesn't respect 
the right margin, it is possible to set 
the left margin so that the print 
head is forced against the right side 
of the printer (bad, bad). Thus the 
left margin is checked and reset to a 
maximum of 18. Actually a left mar- 
gin of 10 is my favorite, as it centers 
the graphics on the page. 


3 

4 

5 

6 

7 

8 

?0 

H 

13 


15 

16 


* *#*#**#*##**#**********#****** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


SILENTYPE DOUBLE GRAPHICS 

BY BRUCE FIELD 
WASHINGTON APPLE PI 

Printer must be initialized 
with correct HI-RES page* 
inverse mode* left eargin* 
and intensity* 


* 

* 

* 

* 

# 

* 

# 

* 

* 

* 

* 


******************************** 
* 


17 

gfeSSu 

EGU 

♦C100 

18 

EGU 

26 

19 

HBASH 

EQU 

27 

20 

XO 

EQU 

$2A 

21 

YO 

EQU 

*2B 

22 

LFMG 

EQU 

♦CFll 

23 

HP AG 

EQU 

♦CF13 

24 

DOTS 

EQU 

$CF2B 

25 

ROMS 

EQU 

♦CFFF 

26 

INVRS 

EQU 

$CF14 

27 

SFTLFT 

EQU 

♦CD02 

28 

PRNT 

EQU 

tCBOB 

ll 

FEED 

EQU 

SCCAB 

WAIT 

EQU 

♦FCA8 

31 

* 



32 

* 




PRINTER ADDRESS FOR SLOT 1 
FOR SCREEN ADDRESS 
COMPUTATION 
SCRATCH COLUMN VALUE 
SCRATCH ROW VALUE 
PRINTER LEFT MARGIN 
HI-RES SCREEN 
DOT IMAGE TO BE PRINTED 
CO-RESIDENT ROM SWITCH 
PRINTER INVERSE FLAG 
MOVE PRINTER HEAD TO LEFT MARGIN 
PRINT DOT IMAGE ROUTINE 
ADVANCE PAPER 
MONITOR WAIT ROUTINE 
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33 


0RG 

4300 






34 


OBJ 

*6300 






35 

* 








36 

* 








37 

* Wait 2 

seconds for 

drive to turn off* 





38 

* 








39 

* 




0300 : 

A2 

0D 


40 

DOUBLE 

LDX 

#13 

COUNTER FOR WAIT LOOP 

03021 

A9 

FF 


41 


LDA 

KR 


03041 

20 

A8 

FC 

42 

LOOP 

JSR 


0307 1 

CA 



43 


DEX 


i DECREMENT LOOP COUNTER 

0308 * 

DO 

FA 


44 

45 

46 


BNE 

LOOP 


030A! 

AD 

FF 

CF 

* 

LDA 

ROMS 

SWITCH OUT CO-RES ROMS 

030D 1 

AD 

00 

Cl 

47 

48 

il 


LDA 

SLOT 

SWITH IN PRINTER ROMS 





* If left margin >18* 

no room for graphics 
of 18 if necessary 





t Reset 

margin 

to max 





51 

* 




03101 

A9 

12 


52 


LDA 

#18 


03121 

CD 

11 

CF 

53 


CMP 

r c 


03151 

B0 

03 


54 


DCS 


03171 

8D 

11 

CF 

55 


STA 

LFMG 

CORRECT LEFT MARGIN 

031A1 

20 

02 

CD 

56 

OK 

JSR 

SFTLFT 

MOVE TO LEFT MARGIN 


58 * Get each column of bytes on the screen 

59 * end print them twice* 

60 * 



§1 



61 

62 

NXCOL 

fcW 





63 

* 


03211 

A9 

BF 


64 


LDA 

03231 

85 

2B 


65 


STA 





66 

* 


03251 

20 

76 

03 

67 

NXR0W1 

JSR 

03281 

29 

OF 


68 


AND 

032A! 

AA 



69 


TAX 

032B1 

BD 

A8 

03 

70 


LDA 

032E1 

4D 

14 

CF 

71 


EOR 

03311 

8D 

2B 

CF 

72 


STA 

03341 

03371 

18 81 81 

73 

74 


JSR 

JSR 





75 

* 


033A1 

033C1 

A5 

2B 


76 


LDA 

FO 

05 


77 


BEQ 

033E1 

C6 

2B 


78 


DEC 

03401 

4C 

25 

03 

79 


JMP 

03431 

20 

9F 

03 

80 

NEXT 

JSR 


#0 



XO 

XO IS COLUMN COUNTER 

*191 

YO 

INIT ROW 


GETPT 

GET SCREEN VALUE 


#*0F 

MASK UPPER BITS 


TBL1»X 

LOOK UP DOT IMAGE 

IN TABLE 

INVRS 

DOTS 

EXCLUSIVE-OR WITH 

INVERSE 

hot 

TWltCE FOR DOUBLE SIZE 

YO 

NEXT 

YO 

TEST IF R0W=0 


DECREMENT AND CONTINUE 

NXR0W1 

CRLF 

DO RETURN AND LINE 

FEED 


81 * 

82 * Seven bits in each screen byte 

83 t requires printing 14 dots on the 

84 t printer * thus heed meKes two passes* 

85 * 

86 * This is the second pass 

87 * 


0346! 

A9 BF 


88 


LDA 

*191 



0348! 
034 A! 

?S 1! 

03 

89 

90 

NXR0U2 

STA 

JSR 

YO 

GETPT 

GET SCREEN BYTE 

THIS TIME 

034D 1 

29 78 

91 

AND 

#478 

MASK LOWER BITS 

034F 1 

4A 


92 


LSR 


i SHIFT FOR TABLE 

OFFSET 

03501 

0351! 

4A 

4A 


93 

94 


til 




03521 

AA 


95 


TAX 


GET DOT IMAGE 


0353! 

BD B8 

03 

96 


LDA 

TBL2»X 


0356! 

4D 14 

CF 

97 


m 

INVRS 



03591 

8D 2B 

CF 

98 


DOTS 



035C1 

20 OB 

CB 

99 


JSR 

PRNT 



035F! 

20 OB 

CB 

100 


JSR 

PRNT 





101 

* 



TEST IF R0W=0 


0362! 

A5 2B 


102 


LDA 

YO 


03641 

FO 05 


103 


BEG 

NEXT2 



0366! 

C6 2B 


104 


DEC 

YO 



0368! 

4C 4A 

03 

105 


JMP 

NXROW2 
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036B: 20 

9F 

03 

106 

NEXT2 

JSR 

CRLF 




107 

* 







108 

* 

One screen column completed 




109 

* 

Increment column end repeat 




110 

* 




036Et A4 

2A 


111 



LDY 

XO 

0370 : C8 



112 



INY 


037 l: CO 

28 


113 



CPY 

#40 SEE IF ALL 40 COLUMNS DONE 

0373: 90 

AA 


114 



BCC 

NXCOL NO » CONTINUE 

0375* 60 



115 



RTS 

» ALL DONE? EXIT HERE 




116 

DC 







117 

* 

Compute 

memory address for HI -RES screen 




118 

* 

position? Y value in Y0» X value m Xu» 




119 

* 

leave with screen value in accumulator 




120 

* 




0376: A5 

2B 


121 

GETPT 

LDA 

YO 

0378: A4 

2A 


122 



LDY 

XO 

037 A: 48 



123 



PHA 


037B: 29 

CO 


124 



AND 

♦♦CO 

037D: 85 

1A 


125 



STA 

HBASL 

037F: 4A 



126 



LSR 


0380 : 4 A 



127 



LSR 


0381 : 05 

1A 


128 



ORA 

HBASL 

m t ii 

1A 


129 

130 



Kft 

HBASL 

0386: 85 

IB 


131 



STA 

HBASH 

0388: OA 



132 



ASL 


0389: OA 



133 



ASL 


038A: OA 



134 



ASL 


038B: 26 

IB 


135 



ROL 

HBASH 

038D: OA 



136 



ASL 


038E: 26 

IB 


137 



ROL 

HBASH 

0390 : OA 



138 



ASL 


0391: 66 

1A 


139 



ROR 

HBASL 

0393: A5 

IB 


140 



LDA 

HBASH 

0395: 29 

IF 


141 



AND 

♦♦IF ' 

0397L OD 

13 

CF 

142 



ORA 

HP AG 

039A: 85 

IB 


143 



STA 

HBASH 

039C: B1 

1A 


144 



LDA 

( HBASL )»Y GET SCREEN LINE 

039E: 60 



145 



RTS 





146 

* 







147 

* 

Do line 

f eed 

of 4 dot positions first» 




148 

* 

then do 

carriage return* 




149 

t 

This order reduces line stsdSer* 




150 

* 




039F: A9 

04 


151 

CRLF 

LDA 

#4 

03Ai: 20 

AB 

CC 

152 



JSR 

FEED ADVANCE PAPER 

03A4: 20 

02 

CD 

153 



JSR 

SFTLFT MOVE TO LEFT MARGIN 

03A7: 60 



154 



RTS 





155 

* 







156 

* 

Tables 

for conversion of screen byte 




157 

* 

to dot 

image 

for Silentype. 




158 

* 




03A8: 00 

60 

18 

159 

TBL1 

HEX 

006018 

03AB: 78 

06 

66 

160 



HEX 

780666 

03AE: IE 

7E 

01 

161 



HEX 

1E7E01 

03Bi: 61 

19 

79 

162 



HEX 

611979 

03B4: 07 

67 

IF 

163 



HEX 

07671F 

03B7I 7F 



164 



HEX 

7F 




165 

* 




03B8: 00 

40 

30 

166 

TBL2 

HEX 

004030 

03BB: 70 

OC 

4C 

167 



HEX 

700C4C 

03BE: 3C 

7C 

03 

168 



HEX 

3C7C03 

03Ci: 43 

33 

73 

169 



HEX 

433373 

03C4: OF 

4F 

3F 

170 



HEX 

0F4F3F 

03C7: 7F 



171 



HEX 

7 F 


END ASSEMBLY 

TOTAL ERRORS: 0 

200 BYTES GENERATED THIS ASSEMBLY 
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Keep Ahead of Microcomputer 
Developments 

With America's Leading Authority 


Interface Age is the most up-to-date 
source of microcomputer hardware 
and software advances. Whether 
you need to be informed for future 
purchases or to make comparisons, 
Interface Age should be #1 on your list. 

• It has more new product 
information than any other 
small systems publication. 

• Indepth hardware and soft- 
ware reviews 

• Software and hardware ap- 
plications 

• Programming 

• Robotics 

• Book reviews 

• Business applications 

• Educational applications 

• Latest technologies 

• Tutorials 

Take advantage of this no-risk trial 
subscription offer. If for any reason 
you are not completely delighted with 
the first issue, we will refund your 
payment in full. Order your subscription 
to INTERFACE AGE now with this 
convenient coupon. 


r 


NO-RISK TRIAL SUBSCRIPTION ORDER 

1 2 issues for $1 8.00. That’s a 40% savings off the single copy 
price. And if you are not delighted with the first issue, your pay- 
ment will be refunded in full. 

MAIL TODAY 

EH One Year (12 issues) $18 (U.S. only) 

□ Two Years (24 issues) $30 (U.S. only) 

EH Canada/Mexico One Year $20 
EH Foreign Surface Mail One Year $35 
EH Foreign Air Mail One Year $50 


Payment must accompany this order. 



Card No. Exp. Date 


Signature 


EH Check enclosed 
Must be in U.S. 
funds drawn on 
U.S. bank 


Name ; 

Street 

City State Zip 



L 


Make check or money order payable to: INTERFACE AGE Magazine 
P.O. Box 1234, Dept. AOI, Cerritos, CA 90701 
Allow 6-8 weeks for delivery. 


J 
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MATRIX FUNCTIONS WITH THE APPLE 


by Max J. Nareff 
Cider Press 


LOOPS AND TWO 
DIMENSIONAL ARRAYS 

Some forms of BASIC provide the 
matrix commands (MAT READ, 
MAT PRINT, MAT INPUT, etc.) to 
facilitate display and manipulation 
of tables of numbers. Though the 
MAT commands are unavailable in 
Applesoft Basic, there is a 
substitute. 

The term "matrix" is used here to 
denote a two-dimensional array of 
numbers consisting of horizontal 
rows and vertical columns. A matrix 
is a grid in which each of the ele- 
ments (numbers) is given a reserved 
space or cell in the computer's „ 
memory. 


To accomplish this, the matrix is 
first DIMensioned. Thus DIM 
A(12,12) allocates 144 cells in mem- 
ory for the 144 (12*12) cells in the 
matrix. (Actually, since Apple 
begins dimensioning from zero, the 
number of elements in the variable 
is 13*13, or 169-but who's count- 
ing?) 


Following is a simple program us- 
ing double digits illustrating how a 
matrix can be constructed or read 
from data statements in Applesoft. 
For the sake of brevity, the number 
of rows is here limited to 3. Try 
more at your computer. 


3RUN 


10 

20 

60 

70 

90 

11 

88 

42 

32 

77 

41 

66 

1? 

20 

91 

72 

72 

18 

36 

24 

11 

30 

93 

46 

66 

33 

14 

98 

16 

32 


0 DIM A< 12*12) 


10 

DATA 

32 

10*20*60*70*90*11*88*42* 

20 

DATA 

18 

77*41 *66* 19*20*91 *72*72* 

30 

DATA 

14 

36*24*11*30*93*46*66*33* 

40 

DATA 

98*16*32: REH 

50 

FOR I 

* 1 TO 31 REM 

INDEX LOOP FOR ROWS 


When the matrix is on screen, 
computations may be made in the 
immediate mode. For example: 


PRINT A(1,5)*A(3,10) 


With simple additions to the pro- 
gram all or selected matrix elements 
may be totaled, averaged, sorted, 
etc. 


60 FOR J « 1 TO lOt REM 
INDEX LOOP FOR COLUMNS 

70 READ A( I* J )t REM 
READS DATA FOR MATRIX 

80 PRINT A< I* J )* SPC< 2 )* t REM 

PRINTS* FORMATS MATRIX ELEMENTS 

90 NEXT J 
100 NEXT I 


MANIPULATING MATRIX 
ELEMENTS 

Above, MATRIX or table forma- 
tion was demonstrated with the use 
of FOR-NEXT loops and double sub- 
scripted variables (also called two 
dimensional arrays). Now we deal 
with arithmetic manipulation of a 
MATRIX. Reference is made to the 
preceeding program which deve- 
loped a table consisting of 3 rows 
and 10 columns of numbers. The 
following subprograms should be 
added to it. 




SPRING 1981 


APPLE ORCHARD 


PAGE 37 


1 . SUM OF ALL MATRIX ELEMENTS 

120 T = Ot REM 
INITIALIZES THE TOTALER 

130 FOR I = 1 TO 31 REM 
LOOP FOR ROWS 

140 FOR J = 1 TO lOt REM 
LOOP FOR COLUMNS 

150 T * T + A< I,J >t REM 
TOTALS ELEMENTS 

160 NEXT J 
170 NEXT I 

180 PRINT t PRINT TAB< 4)J"SUM 
OF MAT ELEMENTS^" JT 


2. AVERAGE OF ALL MATRIX 
ELEMENTS 

120 T = OtK = Ot REM 
INITIALIZES TOTAL AND COUNTER 

145 K = K + It REM 

COUNTS NBR OF ELEMENTS FOR AVGING 

180 PRINT t PRINT TAB< 9>»"AVER 
AGE OF ELEMENTS 25 " »T / K 


The terms "MATRIX" and "TABLE" 
can be used interchangeably. In 
subprogram 2, line 145, the counter 
statement can also be expressed as 
K = I*J another form of iteration as 
the loop uncoils. 

Any component of a MATRIX- 
whether single elements or rows or 
columns — can be manipulated as 
can several matrices. Try "PRINT" 

R(1) + R(2)"; "PRINT R(3)/10" and 
"PRINT C(2) +C(10)" or any com- 
bination required. 

5 HOME JT = Ot REM 
INITIALIZES TOTALER 

10 DIM A(3),B(3),C(3)« REM 
RESERVES MEMORY SPACE FOR 
EACH ARRAY 

20 PRINT "REGULAR"," ETHYL" »"R+E 
SALE" t PRINT 
30 FOR X = 1 TO 3t REM 
MACHINE LOOP FOR READING DATA 

40 READ A<X),B<X)t REM 

READS DATA C A=REGULAR» B=ETHYL 3 


3. SUM OF INDIVIDUAL ROWS & 
COLUMNS 


200 FOR I = 1 TO 3t REM 
INDEX LOOPS 
210 FOR J = 1 TO 10 
220 REM 

CALCULATION OF ROW, COLUMN TOTALS 


230 R< I ) = R( I ) + A( I,J ) 
240 C< J ) = C< J) + A( I , J ) 
250 NEXT J 
260 NEXT I 
270 REM 

LOOPS FOR PRINTOUTS 


280 

FOR I * 1 TO 3 



290 

PRINT TAB< 14 )f "SUM 
#" ;U"=-fR( I ) 

OF 

ROW 

300 

NEXT I 



310 

FOR J = 1 TO 10 



320 

PRINT TAB( 14 )? "SUM 
*" » JJ "=" JC( J ) 

OF 

COL 

330 

NEXT J 




In the foregoing sections on Ma- 
trix simulation, the technique of 
CROSSFOOTING was demon- 
strated without being identified as 
such. Here now is a short applica- 
tion with a paired array. 

Three service stations have each 
sold out their daily quota of two 
grades of gasoline (A & B). How 
many gallons has each outlet sold 
(C), and what is the grand total of 
company sales (T)? 


50 C(X) = A< X ) + B< X ) t REM 
CROSSFOOTING 

60 PRINT A< X ),B( X )»C< X ) 

70 T = T + C(X)J REM 

COMPUTES TOTAL SALES 3 STATIONS 

80 NEXT 

90 PRINT J PRINT TAB< 10)f"T0TA 
L FUEL SALES= "* T 
95 DATA 621 ♦5,433*2,493*8, 1217 *5 
,701.8,317.6: REM 
FUEL SALES CAREFULLY ENTERED IN 
PROPER SEQUENCE— A,B,A,B> ETC. 


CROSSFOOTING 

As defined by Logsdaon, (Pro- 
gramming in Basic, 1977) it is the 
mathematical process of summing 
the corresponding numbers (ele- 
ments) of two arrays in pairs, one 
number from each array. The sum 
of each paired number appears in a 
third array. Originally used in com- 
puter card processing, the term has 
been broadened to include 
subtraction. 
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MULTIPLYING MATRICES 
AND SCALARS 

MATRIX statements, unavailable 
in Applesoft Basic, reduce the pro- 
gramming effort required to solve 
problems involving one or two ma- 
trices (tables) by eliminating the 
need for nested-loops. Large clus- 
ters of data can be managed quickly 
with single MAT statements. As 

Step 1 demonstrates formation of two (2x4) tables 
labeled MATRIX A & MATRIX B. Here again, the MAT 
READ & MAT PRINT statements are accommodated by 
use of nested-loops. 


5 HOME 

10 DIM A(2f4)fB(2f4){ REM 
DIMENSIONS EACH MATRIX 

50 PRINT TAB< 15>f"MATRIX A" 

60 FOR R ^ 1 TO HJ REM 
ROW LOOP — M~2 

70 FOR C = 1 TO HI REM 
COLUMN LOOP — N=4 

80 READ A(RfC>: REM 
FROM DATA STATEMENTS 

90 PRINT A< R f C ) f SPC< 8)ii REM 
PRINTS AND FORMATS MATRIX 

100 NEXT C 
110 NEXT R 

120 PRINT TAB( 15>J"MATRIX B" 
130 FOR R = 1 TO HI REM < M=2 > 

140 FOR C = 1 TO Nt REM ( N=4 ) 

150 READ B(RfC>: REM 
FROM DATA STATEMENTS 

160 PRINT B( Rf C )f SPC< 8>f 
170 NEXT C 
180 NEXT R 

500 DATA 10f20f30f40f50f 10 f 20 f 30 
510 DATA 11f13f15f17f19f21f23f25 


formed with its contents, both in 
the direct and indirect modes. 
Now, two small rectangular ma- 
trices, each composed of two rows 
and four columns of numbers, will 
be formed, and arithmetic interac- 
tions between them illustrated. 
MAT statements involving addition 
(or subtraction) and multiplication 
by a constant will be simulated. 

In step 2, a third MATRIX, C, will be formed by addi- 
tion of A and B simulating MAT C = A + B. 


20 DIM C(2f4) 

200 PRINT TAB( 8 )f “MATRIX C * M 
ATRICES A+B“ 

210 FOR R « 1 TO M 

220 FOR C * 1 TO N 

230 C(RfC) * A<RfC> + B(RfC>: REM 

MATRIX ADDITION 

240 PRINT C< R f C ) J SPC< 8>J 
250 NEXT C 

260 NEXT R 


In step 3, scalar multiplication is demonstrated. In this 
type of operation, each element of matrix may be 
multiplied by either a constant, a variable or an expres- 
sion. This step is an example of MAT D = (K)*A, where K 
is a constant. 


30 DIM D< 2f4 

300 PRINT TAB< 8>J“MATRIX D * < 
K>*MATRIX A* 

310 FOR R = 1 TO H 

320 FOR C * 1 TO N 

330 D( RfC > * <K> * A(RfC>: REM 

FOR EXAMPLE f LET K*5 


noted previously, several of these 
statements can be simulated within 
Applesoft Basic, and while the effort 
is more tedious, selected mathema- 
tical operations can be performed 
using nested loops. Previously, the 
MAT READ and MAT PRINT state- 
ments were simulated, and a single 
matrix (table) generated. Several 
arithmetic operations were per- 


The dimensions of the matrix on 
the left of the "equals" sign must be 
equal to or greater than those on 
the right side of the equation or else 
some of the elements may not ap- 
pear; the shape of the new matrix 
may change, or more likely, the er- 
ror sign will occur. Where the MAT 
capability exists, it is most useful 
and effective, but it is limited by its 
inability to add or subtract more 
than two matrices or to perform 


some other arithmetic. 

SCORE ONE FOR THE APPLE: 
with the procedures outlined, many 
matrices can be added, subtracted, 
divided, etc. The interested reader 
is invited to try these and other op- 
tions. Note what occurs where 
MATRIX A is multiplied by MATRIX 
B. The resultant matrix is produced 
by the multiplication of EACH ele- 
ment of A by the corresponding ele- 
ment of B [i.e. C(1 ,1 ) = A(1 ,1 ) * 


B(1,1), C(1 ,2) = A(1 ,2) * B(1 ,2) and 
so forth]. In a sense, this is a type of 
"scalar" multiplication where the 
multiplier varies from element to 
element. However, this is not true 
Matrix Multiplication in the lan- 
guage of computer science or ma- 
trix algebra, where the rows of one 
matrix are multiplied by the col- 
umns of the second and not by the 
corresponding elements. 
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32 BASIC Programs 
for the Apple Computer 

Tom Rugg and Phil Feldman 

This new book is chock full of 
programs with practical appli- 
cations, educational uses, 
games and graphics. Each of 
the 32 chapters fully docu- 
ments a different pro- 
gram. Each chapter is 
made up of 8 sections 
that serve the follow- 
ing functions: purpose, 
how to use it, sample 
run, program listing, 
easy changes, main 
routines, main vari- 
ables and suggested 
projects. If you enter 
the programs as they 
are shown, they will 
work. They are bug 
free! 

ISBN 0-918398-34-7 
$17.95 
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PROGRAMMING THE APPLE TO COMMUNICATE 

BY TELEPHONE 

by Terry Guerrant 
First Software Co. 


A MODEM is a device that allows 
one modem-equipped computer to 
"talk" to another modem-equipped 
computer over regular telephone 
lines, either locally or long-dis- 
tance. The "talking" may be done 
with sounds (acoustic modems) or it 
may be done with pure electronic 
signals as with the Hayes Micro- 
computer Products, Inc. Micro- 
modem II. You can communicate 
with another Apple computer or 
with a large, data-bank type 
computer. 

The Micromodem II has been de- 
signed specifically for the Apple. It 
allows you to do more than just 
send and receive programs and 
data. The Micromodem II also 
allows you to control another com- 
puter from your own Apple over 
telephone lines. 

Because you have control, you 
can: (1) operate a remote Apple 
without any help from a person at 
that remote Apple, just as if you 
were sitting at the remote Apple's 
keyboard; (2) use the computer 
after business hours to take advan- 
tage of the lowest-cost long dis- 
tance telephone rates; (3) send or 
receive data, programs or messages 
when you are not physically pres- 
ent at your Apple; (4) enjoy the con- 
venience and savings of not having 
to physically make delivery trips to 
transfer written materials or pro- 
grams; (5) have branch business 
locations communicate freely with 
each other regarding inventory or 
other matters at any time over the 
telephone; (6) transmit material 
across the country by telephone 
and have a printer at the receiving 
end transfer to paper within 
minutes; (7) receive stock market 
prices with electronic accuracy 
whenever you wish. 

The Micromodem II does not 
come ready to perform these tasks 


right out of the box. Programs must 
be written for it, and for the Apple, 
that dial the telephone, make a con- 
nection, control the flow of infor- 
mation, and provide for recovery 
from errors, if they should occur. I 
belong to a group of business users 
of the Micromodem II and the Ap- 
ple. We have developed a group of 
14 general purpose programs for 
the Micromodem II that cover most 
applications. 

The experience of our group in 
developing our own Micromodem 
II programs indicates that if you are 
not already a proficient program- 
mer in Applesoft, you should pur- 
chase a package of programs that 
already have the bugs worked out 
of them, rather than trying to write 
your own. If you decide to write 
your own programs, you will have 
to learn the Micromodem M's own 
language, create special sending 
and receiving programs that dyna- 
mically interface with each other, 
coordinate the activities of your Ap- 
ple, your Micromodem II, the re- 
mote Apple, and the remote Micro- 
modem II, and provide techniques 
for error recovery at both com- 
puters. Since you cannot physically 
see the remote Apple when you are 
operating it, getting the bugs out of 
programs can be difficult. 

The members of our group found 
that the hardest problem for us to 
overcome was correcting errors at 
the remote Apple without losing 
control over it, and thus having to 
have a person at the remote Apple 
help in the error recovery proce- 
dure. The key to handling errors is 
to force the remote Apple to go into 
what is called "REMOTE CONSOLE 
MODE" whenever anything goes 
wrong. REMOTE CONSOLE MODE 
simply means that the remote Apple 
is the "slave" of your Apple and will 


respond to anything that you type 
on your own Apple's keyboard. 

Sometimes a bad telephone con- 
nection will introduce static into 
your transmission which can con- 
fuse the remote Apple. Perhaps a 
file name is inadvertently mis- 
spelled, or a disk will fill up in mid- 
transmission. These and other types 
of errors make the error recovery 
routines of your programs their 
most important features. The actual 
transmission of programs or data 
can be relatively simple. It is how 
the errors are minimized and 
handled that requires real inge- 
nuity. 

As the main developer of the 
Micromodem II programs for our 
group, I soon realized that every- 
one in the group would have to be 
provided with complete instruc- 
tions on the operation of the pro- 
grams that were being written. 

What started out as some sketchy 
instructions eventually evolved into 
a full-scale Tutorial complete with 
step-by-step instructions to follow. 
We began to get requests for copies 
of our programs from other persons 
with interests like our own, so a 
general purpose diskette was pre- 
pared which contained our 14 com- 
monly used Micromod'em II pro- 
grams. To use these programs you 
must have a Hayes Microcomputer 
Products, Inc. Micromodem II, an 
Apple computer with firmware Ap- 
plesoft language capability, 32K of 
memory, and at least one disk 
drive. 

We now make the Tutorial and 
diskette available to people who 
need to make regular, practical use 
of the Micromodem II as we in the 
group do. For information you may 
write: First Software Co., 5622 E. 
Presidio Road, Scottsdale, AZ 
85254, or telephone (602) 
953-1214. 
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RESURRECTING KILLED PROGRAMS 

by David G. McDonald 
Apple Slice 


A program is placed by APPLE- 
SOFT into memory starting with lo- 
cation $801. Each line of the pro- 
gram is stored in the following 
manner: 

An address of 00 00 for the start of 
the next line denotes the end of the 
program and the beginning of the 
storage locations for numeric 
variables. 

If a program is in memory and the 
"NEW" or "FP" command is typed, 
or APPLESOFT is entered in such a 
way as to reinitialize the program 
pointers (i.e. CTRL-B), the pro- 
gram remains generally intact, ex- 
cept you cannot "LIST" or "RUN" it. 
When specifying "NEW", or reenter- 
ing APPLESOFT in such a way as to 
reinitialize it, the address locations, 
$801 and $802, which give the ad- 
dress of the second program line, 
are both set to zero, denoting the 
end of the program. Locations 
$69-6A, $6B-$6C, $6D-$6E, and 
$AF-$B0, which are the numeric 
storage pointers and the end of pro- 
gram pointer, respectively, are set 
up to give the address, $0803. 
Other than these changes, the pro- 
gram remains intact. 

To restore the program to a use- 
able form, we need to reverse these 
changes. Specifically, we need to: 

1 . Find the starting address of the 
second program line and store 
it in locations $801 (LS byte) 
and $802 (MS byte). 

2 . Find the address of the end of 
the program, add 1, and store 
it in locations $69-$6A, 
$6B-6C, $6D-$6E, and $AF- 
$B0. 

Once this has been accom- 
plished, the program is again in use- 
able form. 

The following assembly language 
program does just this (for a 4000 
byte program, it takes 1-2 seconds). 
The main idea in using the program 
is to run it, then reenter APPLESOFT 
in such a way as to not clear the 
BASIC program again. 


^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

4 * # 

5 * THIS PROGRAM WILL u RESTORE M * 

6 * BASIC PROGRAMS WHICH HAVE * 

7 * BEEN LOST DUE T0t * 


8 

* 




* 

9 

* 

( 1 ) 

"NEW COMMAND 

* 

10 

* 

( 2 ) 

RE- 

ENTERING APPLE- 

* 

11 

* 


SOFT WITH CTRL-B 

♦ 

12 

* 


ORf 

FOR DISK USERS! 

♦ 

13 

* 


FP 


* 

14 

* 




♦ 

15 

* 




* 

16 

* 

TO USE 

THE 

PROGRAM * WHEN IN 

* 

17 

* 

APPLESOFT » 

TYPE "CALL 37632" 

.* 

18 

* 




* 

19 

* 

WHEN IN 

THE 

MONITOR » TYPE 

♦ 

20 

* 

"9300G” 

AND 

THEN A CONTROL- 

♦ 

21 

* 

C TO REENTER APPLESOFT 

♦ 

22 

* 

WITHOUT 

REINITIALIZING 

* 

23 

* 

MEMORY * 



* 

24 

* 




* 

25 

* 

WRITTEN 

by: 

DAVID G MCDONALD 

# 

26 

* 


MAY 

1980 

* 

27 

* 




♦ 


^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

29 

* 





30 

* 





31 


0RG 

♦9300 


32 


OBJ 

♦6300 


33 

COUNT 

EQU 

♦E 


34 

* 








00 j 

Address of the 

Line Number Program Line 

End of Line 

Start of Next 
Line (2 bytes) 

(2 bytes) 
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35 

* 




9300 : 

A9 

05 


36 

START 

LDA 

*05 

INITIALIZE ADDRESS COUNTER 

9302 1 

85 

OE 


37 


STA 

COUNT 


93041 

A9 

08 


38 


LDA 

*08 


9306: 

85 

OF 


39 


STA 

COUNT+1 


9308*. 

AO 

00 


40 


LDY 

*00 


930A: 

B1 

OE 


41 

SEARCH 

LDA 

(COUNT )» Y 

SEARCH FOR '00' BYTE 

930c: 

FO 

06 


42 


BEQ 

REPLAC 


930E: 

20 

58 

93 

43 


JSR 

INCR 


931 i: 

4C 

OA 

93 

44 


JMP 

SEARCH 


9314: 

20 

58 

93 

45 

REPLAC 

JSR 

INCR 

RESTORE ADDRESS OF 

931 71 

A5 

OE 


46 

STORLS 

LDA 

COUNT 

SECOND PROGRAM LINE 

9319: 

8D 

01 

08 

47 


STA 

*801 


93ic: 

A5 

OF 


48 

STORMS 

LDA 

COUNT+1 


931E: 

8D 

02 

08 

49 


STA 

$802 


9321 : 

20 

58 

93 

50 


JSR 

INCR 


9324: 

C8 



51 

TSTEOP 

INY 

TEST 

FOR END OF PROGRAM 

9325: 

B1 

OE 


52 


LDA 

(COUNT ), Y 


9327: 

DO 

05 


53 


BNE 

SLOOP 


9329: 

C8 



54 


INY 



932A: 

B1 

OE 


55 


LDA 

(COUNT )»Y 


932C: 

FO 

OC 


56 


BEQ 

EOP 


932E : 

AO 

00 


57 

SLOOP 

LDY 

*00 


9330 : 

20 

58 

93 

58 

LOOP 

JSR 

INCR 


9333: 

B1 

OE 


59 

TEST 

LDA 

(COUNT )fY 


9335: 

DO 

F9 


60 


BNE 

LOOP 


9337: 

4C 

24 

93 

61 


JMP 

TSTEOP 

GO TEST FOR END OF PROGRAM 

933A: 

20 

58 

93 

62 

EOP 

JSR 

INCR 


933D : 

20 

58 

93 

63 


JSR 

INCR 


9340: 

20 

58 

93 

64 


JSR 

INCR 






65 

* 





9343‘. 

A5 

OE 

66 

FINISH 

LDA 

COUNT 

STORE LS BYTE OF: 

9345*. 

85 

69 

67 


STA 

$69 

BEGINNING OF SIMPLE VAR. 

9347: 

85 

6B 

68 


STA 

$6B 

BEGINNING OF ARRAY VAR. 

9349: 

85 

6D 

69 


STA 

$6D 

END OF NUMERIC STORAGE 

934B: 

85 

AF 

70 


STA 

$AF 

END OF PROGRAM 

934D: 

A5 

OF 

71 


LDA 

COUNT+1 

STORE MS BYTE 

934F: 

85 

6A 

72 


STA 

$6A 


9351 : 

85 

6C 

73 


STA 

$6C 


9353: 

85 

6E 

74 


STA 

$6E 


9355: 

85 

BO 

75 


STA 

$B0 


9357: 

60 


76 


RTS 



9358: 

E6 

OE 

77 

INCR 

INC 

COUNT 

SUBROUTINE TO INCREMENT 

935A: 

DO 

02 

78 


BNE 

RET 

ADDRESS COUNTER 

935C: 

E6 

OF 

79 


INC 

COUNT+1 


935E: 

60 


80 

RET 

RTS 




END ASSEMBLY 

TOTAL ERRORS! 0 


95 BYTES GENERATED THIS ASSEMBLY 
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LOOKIT 

PROGRAM LOOKIT) 


<* DISPLAYS COMPLETE 128 CHARACTER *) 
< * TURTLEGRAPHICS CHARACTER SET * ) 
it j|c ) 
<* FROM HARVEST VOL II, NO. 6, FEB '81 * ) 
<* NORTHWEST ILLINOIS APPLE USERS GROUP *) 
<* *> 


USES TURTLEGRAPHICS? 

VAR I, J) INTEGER 

AJ STRING! 13) 

BEGIN 

J:= 100) 


it INITIALIZE VERTICAL POSITION *) 

<* FOR STARTING LINE *) 


INITTURTLE) 

MOVETO(O.J)) 


<* PUT THE TURTLE 100 UNITS UP *> 

it AND 0 UNITS LEFT ON HI-RES SCREEN *> 


CHARTYPE< 6 )) 


<* NO MATTER WHAT YOU HAVE ON THE #> 

<* SCREEN, THE CHARACTER WILL SHOW UP. t ) 


FOR It= 0 TO 127 DO 
BEGIN 

WCHAR< CHR< I ))) 

IF I MOD 40 = 0 THEN 


<* DROP DOWN A LINE AFTER WRITING 40 CH * ) 


BEGIN 
Jt= J-10) 
MOVETO(O.J)) 
END) 

END) 

READLN(A)) 


<* HOLD THE PAGE WHILE LOOKING AT THE *) 
it CHARACTERS UNTIL YOU PRESS "RETURN" *) 

END 


A NOTE ON CP/M 

by Steve Jenkins 


With the arrival of the Softcard 
there have been many questions 
concerning CP/M. CP/M stands for 
Control Program for Micropro- 
cessors and was written by Digital 
Research. If a program is in CP/M is 
it a BASIC program? (could be) 
CP/M differs from Apple's DOS in 
the fact that it is not language 
oriented. Microsoft's Softcard does 
more than just give you a Z-80 CPU. 
In providing the structure of CP/M, 
it allows programs the versatility to 
move from one CP/M system to 
another without any modifications. 
In my opinion this is the most im- 
portant reason for CP/M. The capa- 
bility of developing programs on 
the Apple for larger systems, and 
the inverse, adds new horizons to 
the software available for the Apple. 
And if languages are your cup of 
tea, most computer languages are 
available under CP/M. 

At first you will find that CP/M is a 
little awkward, but remember your 
Apple was also difficult to operate 
when you first started. The best way 
to get acquainted with CP/M is to 
use it. Here is some help in learning 
the basic commands. First there are 
two types of commands-transient 
and resident. A resident command 
is in memory and an integrated part 
of the CP/M. A transient command 
must be loaded from the disk into 
memory, then executed (which 
means it must be on the disk). Some 
commands are: 

RESIDENT COMMANDS 

DIR: Gives Directory of Disk 

Ex. DIR, DIR B: 

REN: Renames a file Ex. REN 
NEW. NAM = OLD. NAM 
ERA: Deletes a file Ex. ERA 

PROGRAM. NAM 

TYPE: Copies a ASC file to screen 
Ex. TYPE SAMPLE.TXT 

TRANSIENT COMMANDS 

STAT: Gives file and disk status 
Ex. STAT, STAT *.*, STAT 
DSK: 
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PIP: Moves a file from one disk 

(or name) to another 
Ex: PIP A: = B:*.* copy all 
of B to A 

EX. PIP A: = B:*.COM 
copies all of the COM 
files on B to A 

ED: CP/M editor (see manual 

for commands) 

Ex. ED SAMPLE.TXT 
FORMAT: Formats a blank disk 
Ex. FORMAT B: 
DUMPDumps a disk file to 
screen in hex 
Ex. DUMP MBASIC.COM 


>LIST 

10 REM 

* PROGRAMMER'S AID * 

* RAM TEST INITIALIZER * 

* BY GARY M* COMEAU * 

20 REM 


Here are some more hints. Before 
you can write to a disk, the disk 
must be logged on (this is done by 
Ctrl-C). If you are copying a pro- 
gram from one disk to another, only 
the destination needs to be logged 
on (also remove write-protect tabs). 
Ctrl-P is a toggle to turn the printer 
on and off. CP/M operates with de- 
fault drives; the command B: or A: 
changes the default drive but the 
command B:MBASIC runs the pro- 
gram MBASIC from drive B: and 
leaves A as the default drive. Only 
the programs that have the extent 
.COM can be executed from CP/M. 
These are just a few of the idio- 


syncrasies that need to be assimi- 
lated before you realize that CP/M 
is (in my opinion) the best operating 
system in micros today. 

One book to read for a more 
complete list of commands and op- 
tions is Rodney Zak's CP/M HAND- 
BOOK. This book gives a complete 
list of commands in an easy to read 
format and is also good for the 
beginner. 

Keep in mind that CP/M is not a 
language but an environment 
(operating system) where languages 
live (run), producing programs that 
meet needs. 


200 CALL - 10820 i REM 
INITIALIZE RAM TEST 

290 REM 


ADJUST Y$ AS REQUIRED TO SUIT YOUR 

SYSTEM MEMORY CONFIGURATION 

SEE PROGRAMMER'S AID MANUAL PG* 31 


THIS PROGRAM WILL INITIALIZE 
THE PROGRAMMER'S AID RAH TEST* 
ELIMINATING THE NEED TO ENTER 
MEMORY ADDRESES MANUALLY 


100 VBL=0; DIM Y*<75> 

no in*o: pr#o: rem kill dos hooks 

120 POKE 1010*105? POKE 1011*255 
i POKE 1012*90? REM 
RESET VECTOR* DEFEAT AUTOSTART ROM 


f ATTENTION: Apple Users I 

WANT BETTER COLOR. ..MORE STABILITY? 


g Ever question the quality of your computet Z 
display. If so, you've probably been told\ 
"Tnars the best you can expect from an 
RF modulator...buy a color monitor ”. 

WE CHALLENGE THAT STATEMENT! 
jDON'T BE SATISFIED WITH EXISTING 

t/QUALITY . See for yourself what our "newfr 
Jconcepts ” modulator can do for your pic- 
ture.. .MICRO-VERTER Model MVX-500, 
f $35 RP. Phone orders welcomed. 

HOt LINE DIAL: 402-987-3771 


i 13 A BROADWAY ATV f 


DAKOTA CITY, RE. 

68731 


300 Y*="N400.4 800.8 1000.10 2000.20 
3000.20 4000.40 7000.20 8000.40 
34.00”: REM 48K 

310 VBL= PEEK (218)+ PEEK (219) 

#256t REM 
FIND Y$ IN MEMORY 


320 FOR I=VBL-5 TO ( VBL-5 )+ LEN( 
Y*> 

330 IF PEEK ( I )=160 THEN POKE Jr 
153: NEXT i: REM 
REPLACE SPACES WITH CTRL Y'S 


400 FOR 1=1 TO LEN(Y$): POKE 511 
+I» ASC(Y$(I)): NEXT i: POKE 
72»0: CALL -144: REM 
POKE Y$ INTO KEYBOARD BUFFER 
AND READ BUFFER 


500 REM 

MEMORY TEST WILL RUN UNTIL YOU 
HIT RESET 


510 REM 

RAM TEST WILL OVERWRITE DOS? 
REMEMBER TO REBOOT AFTER 
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TEXT TRAIN AND SUB SEARCH 

IAC Software Reviews 
by David B. Garson 


Call-A.P.P.L.E. for a full review of 
the Tip Book. 

And one can see, there is quite a 
bit to this software package. This is 
one of the few pieces of software 
that is actually under-valued for 
what you get (but don't tell Beagle 
Bros., or they might raise the price). 
The software is original and may 
teach you a few things that you may 
not know about your Apple. I don't 
think many people will be disap- 
pointed with this package. 


Program: Text Train & Sub Search 
Author: Bert Kersey 
Distributor: Beagle Bros. Micro 
Software 
4315 Sierra Vista 
San Diego, CA 92103 
Purpose: Entertainment 
Language: Applesoft & Integer 
(32K) 

Price: $16.00, Disk or Cassette, 
Manuals, and Catalog 

RATINGS: 

Speed: 85 
Ease of Use: 90 
Documentation: 75 
Screen Display: 85 
Reliability: 90 
Overall Value: 95 

In today's inflationary times, it is a 
joy to find a true software bargain. 
Imagine if you will, being able to get 
two pieces of software for only 
$16.00. In addition, a 36 page cata- 
log/tip book. If you say impossible, 
then I direct you to Beagle Bros.'s 
Text Train and Sub Search. 

Text Train, as the name implies, is 
a text-oriented race the clock game. 
It is your responsibility to control 
the train (actually a string of up to 
nine characters) by switching, 
coupling, and uncoupling. But be 
careful, if you hit an open switch 
you derail the train. 

This game may bring back the 
good old days of playing with your 
HO train set. Your objective is to 
couple together a pre-defined series 
of freight cars (letters), and drive 
them to the check station in the 
fastest time. 

The game begins with the Apple 
randomly placing letters both on 
the back of your train and on side 
tracks. It is then your job to get the 


freight cars in their proper order. All 
the while a clock is ticking away, 
making this game great for the indi- 
vidual (by beating their best time), 
or for a group at parties (competing 
against one another). 

Text Train proves that a good 
game does not necessarily need 
graphics in order to be entertaining. 
Although the game could have 
been done with graphics, it may not 
have had the same appeal, since 
one does not always have text avail- 
able to them in the graphic modes. 

Sub Search is a variation on the 
old battleship game (remember 
'B-5', 'Hit, you sunk my Battleship!). 
Done in lo-res graphics, the player 
must sink all the subs before his fuel 
and or oxygen runs out. By moving 
around the screen you are given a 
limited amount of information of 
your surroundings. As you home 
into your target, your sensors will 
begin to beep, telling you that you 
are getting close to a target. For a 
more detailed report you can use 
your scanners, but this costs fuel to 
use, so you can not use them too 
often. 

Sub search is a fast paced game 
that will take some time before one 
can play it well. Sub Search will be 
liked by anyone who liked the origi- 
nal Battleship, although it was a lit- 
tle slow paced. 

In addition to Text Train and Sub 
Search, there are two cute give- 
away programs on the disk. 
Another freebie that comes along 
with this package is the Beagle Bros. 
Catalog & Tip Book. This is a valu- 
able book that contains quite a bit 
of useful information for any Apple 
owner. Look at the Nov. -Dec. 1980 


WORD 

OF CAUTION* 

by David E. Laden 
Mini'app'les 


Before you use a "CALL 62450" or 
a "CALL 62454" in your program, be 
sure you have initialized the con- 
tents of the high resolution pointers 
by executing HGR or HGR2. (CALL 
62450 and CALL 62454, for those 
who don't know, clear the current 
high resolution screen to black and 
the most recently HPLOTted color, 
respectively.) 

Depending upon the contents of 
the uninitialized pointer ($E6), a 
"CALL 62450" or a "CALL 62454" 
may erase all or part of the program 
in memory. This is especially true 
after a cold start (starting the Apple 
by turning it on) or making a disk- 
to-disk copy using Apple's copy 
program. The high resolution point- 
ers do not seem to be initialized 
upon a cold start. Also, the copy 
program apparently uses some of 
the same zero page locations as Ap- 
plesoft and does not return them to 
their original state. 

NOTE: If you do not wish to ini- 
tialize with HGR or HGR2 before 
you do a "CALL 62450" or a "CALL 
62454" you can POKE a 32 ($20) 
into location 230 ($E6) for hi-res 
page 1, or for hi-res page 2 you can 
POKE a 64 ($40) into location 230. 

*for those using Applesoft BASIC 
and high resolution graphics. 
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GETTING THERE FASTER IN APPLESOFT BASIC 

by David Bartley 
Apple-Dillo 


I recently found an interesting 
quirk in Applesoft that explained 
why some of my programs took 
longer to run than I expected. By 
the time I worked it all out, I had 
come up with a few ways to speed 
up my programs and, surprisingly, 
found a reason to avoid resequenc- 
ing their line numbers! 

One of the more quoted cliches 
in computer programming is "a pro- 
gram spends 90% of its time in 10% 
of its code." Although the exact per- 
centages vary, this is still a basic 
truth. Concentrate your efforts to 
speed up your program on the cri- 
tical 10% where it spends its time. 

It isn't always easy to find the criti- 
cal sectors of code. Many hours 
have been wasted fine-tuning the 
wrong piece of code because a pro- 
grammer "knew" where the time 
burner was. Things are especially 
hard in an interpretive language, 
where the cost of an operation is 
not always obvious. 

You have to start somewhere, 
though, so an obvious candidate is 
an "inner loop", where the time to 
execute each statement is multi- 
plied by the number of iterations 
through the loop. Nested loops are 
even more critical. 

Observe the following boring but 
illustrative example of a loop: 


100 FOR 1 = 1 to 10000 
110 GOTO 120 
120 NEXT I 


Everything between the FOR and 
the NEXT is executed 10000 times. 
When preceeded by thirty dummy 
REM lines (which simulate a typical 


program), this simple loop con- 
sumes 38.1 seconds! Now look at 
this loop: 


100 FOR 1 = 1 to 10000 
200 GOTO 300 
300 NEXT I 


Although there is no apparent dif- 
ference, this loop takes only 17.8 
seconds (when preceded by thirty 
REM's). Why? I had to disassemble 
the GOTO handler in the Applesoft 
ROM to find out. 

Applesoft, when executing a 
GOTO, first reads the line number 
and converts it to a two-byte binary 
value. It then performs a linear 
search to find the program line with 
that number. Generally it starts 
searching at the beginning of the 
program. This is why we are ad- 
vised to put frequently used rou- 
tines up front. 

For forward jumps, however, it 
would be faster to start searching 
from the current position; this is 
what Applesoft does. . .almost. 
Flere's the quirk I mentioned. The 
interpreter looks at only the high 
byte of the line number. If that byte 
is greater than the high byte of the 
current line , then it commences the 
search from the current position. If it 
is equal or less , it starts the search 
from the beginning of the program. 

Since the low bytes are not com- 
pared, a forward jump to a line 
number whose high byte is the 
same will not execute as quickly as 
one where the high byte is greater. 
In our first example, the high bytes 


were INT (110/256) and INT (120/ 
256), or 0 in both cases. In the,sec- 
ond example, the high byte 
changed from Oto 1, resulting in the 
difference in speed. 

What did Apple (or Microsoft) 
save when they left out the com- 
parison of the low-order line num- 
ber bytes? Four machine language 
instructions, totalling eight bytes. It 
was not worth it! I've written a re- 
placement GOTO handler that cor- 
rects that oversight, but before we 
get to that, let's examine some of 
our other options. 

First, it's clear that we can work 
around the problem by choosing 
line numbers carefully. Any time we 
write a forward jumping GOTO, 
we should be sure that the line 
number we go to has a different up- 
per byte. In practice, this is only im- 
portant inside loops. 

This strategy works, but it isn't 
easy. Furthermore, as soon as you 
resequence the line numbers using 
one of the utility programs floating 
around (such as RENUMBER), the 
problem may come back again. 

An easier option, particularly for 
programs shorter than 300 or so 
lines, is to deliberately resequence 
with an increment that guarantees 
that all line numbers differ in their 
upper bytes. Any increment greater 
than 255 will do, but a multiple of 
10 or 100 is more aesthetic. Don't 
use too large an increment. Divide 
64000 by the number of lines in 
your program to determine the up- 
per limit. 

These options are unsuitable for 
large programs. It is almost impera- 
tive that you periodically rese- 
quence a large program as you 
write it, but eventually you have too 
many lines and too small an incre- 
ment between them. 
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1 ( ************************************** ) 


2 < * * ) 

3 <* Program to modify the BIOS modules * ) 

4 ( * to work with Dan Palmar" s lower *) 

5 <* case adapter for both input and *) 

6 < * output* * ) 

7 <* *> 

8 ( * Author .Craig W. Vaughan * ) 

9 <* Date iApril 5 » 1980 *> 

10 ( * Revision *1*0 *) 

11 <* - *> 

12 <* REVISED JLEE MEADOR *) 

13 <* DATE J DECEMBER 28 » 1980 *) 

14 <* REVISION Jl.l (FOR PASCAL 1.1) *) 

15 <* (NOTE*. INPUT IS NOT SUPPORTED HERE *) 

16 <* *) 

17 (* Copyright 1980 by Craig W* Vaughan * ) 

18 <* Permission is hereby granted for *) 

19 <* duplication for non-commercial He) 

20 < He purposes* * ) 

21 ( He All other rights reserved* He) 

22 <Ht *) 


23 ( ************************************** ) 

24 

25 PROGRAM lcpatch? 

26 

27 VAR 

28 

29 blkJ PACKED ARRAYCO. .511 3 OF 0. .255} 

30 bit >bin i INTEGER} 

31 ptch * FILE} 

32 SJ STRING} 

33 

34 PROCEDURE blocks } 

35 BEGIN 

36 bln J= 5} 

37 bit 1= BLOCKREAIK ptch»blk * 1? bln )} 

38 blkC 1713 t= 176} 

39 blkC 1723 t= 002} 

40 blkC4103 l- 000} 

41 bit t= BLOCKWRITE(ptchfblk»lfbln )} 

42 END} 

43 

44 

45 BEGIN 

46 PAGE( OUTPUT )} 

47 G0T0XY< 0» 10 )} 

48 WRITE( ' Name of disk? » " )} 

49 READLN <S)} 

50 IF POS < ' t' >S) > 0 THEN 

51 S 1= CONCAT <S» y SYSTEM. APPLE 7 )} 

52 ELSE 

53 S i= CONCAT <S*' .SYSTEM. APPLE' )} 

54 WRITELN} 

55 WRITELN ( 'Updating 7 ,S» 7 ... 7 )} 

56 RESET (ptchrS)} 

57 block5} 

58 CLOSE ( ptch » LOCK )} 

59 END. 


MODIFYING PASCAL 
BIOS TO WORK WITH 
THE PAYMAR LC 
ADAPTER 


by Craig Vaughan and Lee Meador 

The following program is a lower 
case patch for Pascal version 1.1. 
Entry of lower case is as usual. E is 
used for a shift lock and W is used 
for a single shift. A keyboard which 
has been modified (in hardware) for 
lower ease can enter lower case 
directly. 


SIMPLE FUNCTIONS 
IN APPLESOFT 

by D. B. Buchler 
Mini'app'les 


Few Applesoft programs seem to 
use the DEF capability. One neat 
application of DEF is to reduce the 
code needed to handle common 
usages of PEEKS and POKES. Two 
examples of this type of application 
are: 

1. Simulate the INTEGER BASIC 
MOD function. 

10 DEF FNM(X) = X- INT(X/256) 
*256 

50 POKE 105, FNM(A) :REM 
PUTS LOW ORDER BYTE OF 
INTEGER PORTION OF A IN 
106 

60 POKE 106, A/256 :REM HIGH 
ORDER BYTE OF INTEGER 
PART OF A IN 106 

The above are equivalent to the IN- 
TEGER BASIC statments. 

50 POKE 105, A MOD 256 
60 POKE 106, A/256 

2. Access 2 byte (16 bit) address 
or data in 2 memory locations. 

20 DEF FNQ(Y) = PEEK (Y) + 256 
*PEEK (Y+1) 

50 PRINT FNQ(105) :REM 

PRINTS 16 BIT ADDRESS OR 
DATA STORED IN 105 & 106 
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^The Newest In 


Apple Fun 

We’ve taken five of our most popular programs and 
combined them into one tremendous package full of 
fun and excitement. This disk-based package now of- 
fers you these great games: 

Mimic — How good is your memory? Here’s a chance 
to find out! Your Apple will display a sequence of 
figures on a 3 x 3 grid. You must respond with the ex- 
act same sequence, within the time limit. 

There are five different, increasingly difficult ver- 
sions of the game, including one that will keep going 
indefinitely. Mimic is exciting, fast paced and 
challenging — fun for all! 

Air Flight Simulation — Your mission: Take off and 
land your aircraft without crashing. You’re flying 
blind — on instruments only. 

A full tank of fuel gives you a maximum range of 
about 50 miles. The computer will constantly display 
updates of your air speed, compass heading and 
altitude. Your most important instrument is the Angle 
of Ascent/Bank Indicator. It tells if the plane is climb- 
ing or descending, whether banking into a right or left 
turn. 

After you’ve acquired a few hours of flying time, 
you can try flying a course against a map or doing 
aerobatic maneuvers. Get a little more flight time 
under your belt, the sky’s the limit. 

Colormaster — Test your powers of deduction as you 
try to guess the secret color code in this Mastermind- 
type game. There are two levels of difficulty, and three 
options of play to vary your games. Not only can you 
guess the computer’s color code, but it will guess 
yours! It can also serve as referee in a game between 
two human opponents. Can you make and break the 
color code . . . ? 

Star Ship Attack — Your mission is to protect our or- 
biting food station satellites from destruction by an 
enemy star ship. You must capture, destroy or drive 
off the attacking ship. If you fail, our planet is 
doomed . . . 

Trilogy — This contest has its origins in the simple 
game of tic-tac-toe. The object of the game is to place 
three of your colors, in a row, into the delta-like, mul- 
ti-level display. The rows may be horizontal, vertical, 
diagonal and wrapped around, through the “third di- 
mension”. Your Apple will be trying to do the same. 
You can even have your Apple play against itself! 

Minimum system requirements are an Apple II or 
Apple II Plus computer with 32K of memory and one 
minidisk drive. Mimic requires Applesoft in ROM, all 
others run in RAM or ROM Applesoft. 

Order No. 0161AD $19.95 


Solar Energy For The Home 

With the price of fossil fuels rising astronomically, solar space-heating systems are starting to become very 
attractive. But is solar heat cost-effective for you? This program can answer that question. 

Just input this data for your home: location, size, interior details and amount of window space. It will then 
calculate your current heat loss and the amount of gain from any south facing windows. Then, enter the data 
for the contemplated solar heating installation. The program will compute the NET heating gain, the cost of 
conventional fuels vs. solar heat, and the calculated payback period — showing if the investment will save you 
money. 

Solar Energy for the Home: It’s a natural for architects, designers, contractors, homeowners. . .anyone 
who wants to tap the linrtless energy of our sun. 

Minimum system r f juirements are an Apple II or Apple II Plus with one disk drive and 28K of RAM. 
Includes AppleDOS 3.2. 

Order No. 0235AD (disk-based version) $34.95 


Math Fun 


-Paddle Fun 


This new Apple disk package requires a steady eye and a quick hand at the game paddles! It includes: 
Invaders — You must destroy an invading fleet of 55 flying saucers while dodging the carpet of bombs they 
drop. Your bomb shelters will help you — for a while. Our version of a well known arcade game! Requires Ap- 
plesoft in ROM. 

Howitzer — This is a one or two person game in which you must fire upon another howitzer position. This pro- 
gram is written in HIGH-RESOLUTION graphics using different terrain and wind conditions each round to 
make this a demanding game. The difficulty level can be altered to suit the ability of the players. Requires Ap- 
plesoft in ROM. 

Space Wars — This program has three parts: (1) Two flying saucers meet in laser combat — for two players, (2) 
two saucers compete to see which can shoot out the most stars — for two players, and (3) one saucer shoots the 
stars in order to get a higher rank— for one player only. Requires Applesoft. 

Golf — Whether you win or lose, you’re bound to have fun on our 18 hole Apple golf course. Choose your 
club and your direction and hope to avoid the sandtraps. Losing too many strokes in the water hazards? You 
can always increase your handicap. Get off the tee and onto the green with Apple Golf. Requires Applesoft. 

The minimum system requirement for this package is an Apple II or Apple II Plus computer with 32K of 
memory and one minidisk drive. 

Order No. 0163 AD $19.95 


The Math Fun package uses the techniques of immediate feedback and positive reinforcement so that 
students can improve their math skills while playing these games: 

Hanging— A little man is walking up the steps to the hangman’s noose. But YOU can save him by answering 
the decimal math problems posed by the computer. Correct answers will move the man down the steps and 
cheat the hangman. 

Spellbinder — You are a magician battling a computerized wizard. In order to cast death clouds, fireballs and 
other magic spells on him, you must correctly answer problems involving fractions. 

Whole Space— Pilot your space craft to attack the enemy planet. Each time you give a correct answer to the 
whole number problems, you can move your ship or fire. But for every wrong answer, the enemy gets a 
chance to fire at you. 

Car Jump— Make your stunt car jump the ramps. Each correct answer will increase the number of buses your 
car must jump over. These problems involve calculating the areas of different geometric figures. 

Robot Duel — Fire your laser at the computer’s robot. If you give the correct answer to problems on calculat- 
ing volumes, your robot can shoot at his opponent. If you give the wrong answer, your shield power will be 
depleted and the computer’s robot can shoot at yours. 

Sub Attack — Practice using percentages as you maneuver your sub into the harbor. A correct answer lets you 
move your sub and fire at the enemy fleet. 

All of these programs run in Applesoft BASIC, except Whole Space, which requires Integer BASIC. 

Order No. 0160AD $19.95 


Skybombers 

Two nations, seperated by The Big Green Moun- 
tain, are in mortal combat! Because of the terrain, 
their ’s is an aerial war— a war of SKYBOMBERS! 

In this two-player game, you and your opponent 
command opposing fleets of fighter-bombers armed 
with bombs and missiles. Your orders? Fly over the 
mountain and bomb the enemy blockhouse into dust! 

Flying a bombing mission over that innocent look- 
ing mountain is no milk run. The opposition’s aircraft 
can fire missiles at you or you may even be destroyed 
by the bombs as they drop. Desperate pilots may even 
ram your plane or plunge into your blockhouse, sui- 
cidally. 

Flight personnel are sometimes forced to parachute 
from badly damaged aircraft. As they float helplessly 
to earth, they become targets for enemy missiles. 

The greater the damage you deal to your enemy, the 
higher your score, which is constantly updated at the 
bottom of the display screen. 

The sounds of battle, from exploding bombs to the 
pathetic screams from wounded parachutists, remind 
each micro-commander of his bounden duty. Press 
On, SKYBOMBERS— Press On! 

Minimum system requirements: An Apple II or Ap- 
ple II Plus, with 32K RAM, one disk drive and game 
paddles. 

Order No. 0271AD (disk-based version) $19.95 
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Apple* Software 

From Instant Software 


Santa Par avia and Fiumaccio 


Buon giorno, signore! 

Welcome to the province of Santa Paravia. 
As your steward, I hope you will enjoy your 
reign here. I feel sure that you will find it, shall 
we say, profitable. 


Perhaps I should acquaint you with our little domain. It is not a 
wealthy area, signore, but riches and glory are possible for one who 
is aware of political realities. These realities include your serfs. They 
constantly request more food from your grain reserves, grain that 
could be sold instead for gold florins. And should your justice 
become a trifle harsh, they will flee to other lands. 

Yet another concern is the weather. If it is good, so is the harvest. 

But the rats may eat much of our surplus and we have had years of 
drought when famine threatened our population. 

Certainly, the administration of a growing city-state will require 
tax revenues. And where better to gather such funds than the local 
marketplaces and mills? You may find it necessary to increase custom duties or tax 
the incomes of the merchants and nobles. Whatever you do, there will be far- 
reaching consequences. . .and, perhaps, an elevation of your noble title. 

Your standing will surely be enhanced by building a new palace or a magnificent 
cattedrale. You will do well to increase your landholdings, if you also equip a few 
units of soldiers. There is, alas, no small need for soldiery here, for the unscrupulous 
Baron Peppone may invade you at any time. 

To measure your progress, the official cartographer will draw you a mappa. From 



it, you can see how much land you hold, how much of it is under the plow and how 
adequate your defenses are. We are unique in that here, the map IS the territory. 

I trust that I have been of help, signore. I look forward to the day when I may ad- 
dress you as His Royal Highness, King of Santa Paravia. Buona fortuna or, as you 
say, “Good luck”. For the Apple 48K. 

Order No. 0174A $9.95 (cassette version). 

Order No. 0229AD $19.95 (disk version). 


TO SEE YOUR LOCAL INSTANT SOFTWARE DEALER OR USE THE ORDER FORM BELOW 

ORDER 


For Fast 
Service 






Toll-Free 
1 - 800 - 258-5473 


10 


Name 


City _ 


. State _ 


-Zip- 


Apple Cassettes 


0018A Golf $7.95 

0025 A Mimic $7.95 

0040 A Bowling/Trilogy $7.95 

0073 A Math Tutor I $7.95 

0079A Oil Tycoon $9.95 

0080A Sahara Warriors $7.95 

0088 A Accounting Assistant $7.95 

0094A Mortgage w/Prepayment Option/ 

Financier $7.95 

0096A Space Wars $7.95 

0098A Math Tutor II $7.95 

01 74 A Santa Paravia and Fiumaccio $9.95 

01 48 A Air Flight Simulation $9.95 


We Guarantee It! 


I Sofr ^/-e ) 

J Guarantee 

OUR PROGRAMS ARE GUARANTEED 
TO BE QUALITY PRODUCTS. IF NOT 
COMPLETELY SATISFIED YOU MAY 
RETURN THE PROGRAM WITHIN 60 
DAYS. A CREDIT OR REPLACEMENT 
WILL BE WILLINGLY GIVEN FOR 
ANY REASON. 


□ Check 

□ Money Order 

□ VISA 

□ AMEX □ Master Charge 

Card No 



F xp Dat° 





Signed 



Date 



Order your Instant Software toda 


Quantity 

Order No. 

Program name 

Unit cost 

Total cost 




























Shipping and handling 


$1.00 

. _ _ ^ _ _ Total order 



Instant Software Inc. 


| Peterborough, N.H. 03458 
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A FAST CO-RESIDENT APPLESOFT EDITOR FOR APPLESOFT PROGRAMERS, NOW PER- 
FORM GLOBAL CHANGES/FINDS TO ANYTHING IN YOUR PROGRAM. OTHER COM- 
MANDS INCLUDE: RENUMBER, APPEND, QUOTE (COPY), LIST (OPTIMIZED), MODIFY 
(SINGLE LINE), AUTO LINE NUMBERING, FORMATTED MEMORY DUMP, HEX/DEC 
CONVERSION, FREE SPACE, AND ABILITY TO ENTER MONITOR COMMANDS. CRAE 
2.0 IS COMPATIBLE WITH NEIL KONZEN'S PROGRAM LINE EDITOR, REQUIRES 48K 
RAM APPLESOFT ROM AND DISK. 


MCAT 2.0 


MCAT 2.0 IS A FAST BINARY UTILITY WHICH CREATES A SORTED MASTER CATALOG 
WHICH IS SAVED ON DISK AS A BINARY FILE (FAST). THE MASTER CATALOG CAN BE 
EASILY UPDATED A WHOLE DISKETTE AT A TIME (ADD, DELETE, REPLACE). LIST/ 
PRINT HAVE GLOBAL SEARCH CAPABILITY AND ONE OR TWO COLUMNS, PROVISIONS 
FOR DUPLICATE VOLUME NUMBERS. APPROXIMATELY 1200 FILE NAMES, 48K OR 
32K, 13 OR 16 SECTORS DOS SUPPORTED. 


CRAE on disk with 20 page manual MCAT on disk with 10 page manual CRAE and MCAT on one disk 

$24.95 $19.95 $39.95 with manuals 


EROM #1 

CRAE's powerful Global Change/Find, 
optimized List Command, Hex to 
Decimal and Decimal to Hex conver- 
sion now available on a 2716 EPROM. 

EROM H\ w/manual 

$69.95 


EROM M2 

CRAE's Autoline numbering, format- 
ted Memory Dump, Append, number 
conversion (Hex/Dec) on one 2716 
EPROM. 

EROM H-2 w/manual 

$49.95 


EROM M3 

CRAE's powerful renumber and quote 
function now on two 2716 EPROMS. 

EROM #3 w/manual 

$49.95 

EROM 1,2,3 
$149.95 


ALL EROMS REQUIRE APPLESOFT ROM AND ROMPLUS+ AND ARE COMPATIBLE WITH 
NEIL KONZEN'S PROGRAM LINE EDITOR. 


OLDORFS 

THE 

CREATURE 

REVENGE 

TARTURIAN 

VENTURE 

48K, Applesoft ROM 

48K, Applesoft ROM. 

48K, Applesoft ROM. 

ON DISK $19.95 

ON DISK $24.95 

ON DISK $24.95 




icippta 


SEE YOUR LOCAL DEALER OR SEND CHECKS TO 

HIGHLANDS COMPUTER SERVICES 

14422 S.E. 132nd 
Renton, Washington 98055 
(206) 228-6691 



Washington residents add 5.3% sales tax. Applesoft and Apple 
are registered trademarks of Apple Computers, Inc. 


;cippkz 



Romplus is a registered trademark of Mountain Computers, Inc. 
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concoct 

fgappkz computer inc. 


the user group newsletter 


HOMEBREW TO CHAMPAGNE 


by Steve Wozniak 
Apple Computer , Inc. 



Steve Wozniak, Co-founder Apple Com- 
puter, Inc. 


In a recent speech before the In- 
ternational Apple Core , Steve Woz- 
niak, co-founder of Apple Compu- 
ter, described how his involvement 


with a local computer club helped 
give birth to Apple. 

I'd like to compliment the 
organizers from the International 
Apple Gore for bringing together so 
many Apple fans. I hope you all 
love your Apple M's as much as 1 
love mine. 

Those of you who read the maga- 
zines are aware that the Homebrew 
Computer Club was formed back in 
spring of 75. It was one of the first 
computer clubs in the country. The 
phases it went through, from forma- 
tion to maturity, parallel what I was 
doing at that time, which also led to 
the birth of the Apple I and Apple II. 
Both products to a large degree 
were born out of the club, rather 
than from an existing company or 
product philosophy. 

At the time, I was working at 
Hewlett-Packard designing calcula- 
tor-type circuits. I knew how to de- 
sign and write compilers and such, 
but I'd kind of let that slip for a few 
years. I was more interested in cal- 


culator chips and driving around 
the world and just doing all the 
things you do at that age. 

Well, I got involved in designing 
video games. I was in a bowling 
alley and saw a PONG game and 
thought, "Hey, I can design one of 
those." So I went out and designed 
my own version. It was famous 
around H-P because when you 
missed a shot, a random message 
would flash on the screen and say 
something like "Oh Shit!" or "Darn 
it". 

I also got interested in video ter- 
minals, because I watched some 
friends using Teletype 33s, which 
were popular low-cost terminals in 
those days. I could talk to timeshar- 
ing systems and play Lunar Lander 
and look at all sorts of interesting 
files. 

I wanted a terminal, but couldn't 
afford one. At Hewlett-Packard they 
had a flexible policy which said, 
basically, that any engineer is wel- 
come to parts for projects of his 
own design. So I took advantage of 
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that policy and designed a video 
terminal and a modem to get on 
various networks. 

This was about the time the 
Homebrew Computer Club was 
formed. I heard from a friend that 
they were interested in micropro- 
cessors. I didn't really know what 
microprocessors were, but I de- 
cided to go, since they were also in- 
terested in video terminals. 

We got together in Gordon 
French's garage. It was raining out- 
side, but he had his garage door 
open and 40 of us were crowded in- 
side. We introduced ourselves 
around the room. A good many of 
those people later started their own 
personal computer companies- 
companies like Processor Technol- 
ogy, Cromemco, and some of the 
other peripheral designing houses. 

I learned a lot that night. I was a 
little bit behind these goings on. 
There was some discussion about 
whether we should start an 8008 
portion of the club because Gordon 
French had one. He had a bunch of 
software he was writing for it and he 
passed out 8008 instruction man- 
uals at the meeting. It's probably a 
good thing we never went in that di- 
rection, but focused more on the 
8080, which was pretty expensive 
back in those days, about $270. 

That was the formation of the 
club. Exciting things were happen- 
ing and we would continue to 
meet. 

At about that time, I had a video 
terminal and some video games. 
My terminal was almost complete. 
Lee Felsenstein, who later became 
our chairperson, also had a video 
terminal -it later turned into a Pro- 
cessor Technology board. 

I was amazed by the high school 
kids at our meetings. Everyone 
knew the buzzwords, knew what 
was going on and which chips had 
what kind of instructions, saw all 
this home/hobby computer 
business through the Mark 8 to the 
ALTAIR. I didn't know anything. I 
had kind of drifted out of my early 
high school and college experi- 
ences in minicomputers, and I felt 
like a dummy. All these other peo- 
ple knew what was going on. I was 
certainly interested in what they 
were interested in. It sparked my in- 
terest in small computers, minicom- 
puter-type instruction sets, and 
microprocessors. 


Forming a newsletter is critical to 
the survival of a club, because that's 
how you get the word out and keep 
the interest up from month to 
month. The first couple newsletters 
of the Homebrew Computer Club 
were typed on one sheet of paper, 
just a list of names and addresses. 
We also set up a library. Gordon 
French offered to maintain a reposi- 
tory of software and articles and 
whatever else. He also offered his 
phone number between certain 
hours on certain nights. We could 
call him up and say: "What's going 
on? Do you have one of these?" It 
was really a large task for one per- 
son, so it kept him busy for much of 
the next year. 

One of the early topics of discus- 
sion, while the club was being 
formed, was how home computers 
were about to happen. Everyone in 
the hobby clubs was saying it, but 
no one anywhere else was. At 
work, I would walk around and talk 
to guys in the lab, and everyone 
there was the way I had been, iso- 
lated from what was about to hap- 
pen. Possibly some of the concepts 
of the hobbyists in those days were 
a little off base from what really 
happened, but it was obvious even 
then that the hobbyists were going 
in the right direction. 

Byte magazine was the first to hit 
the stands. I was fortunate enough 
to have been one of the first people 
to buy it. People at Homebrew 
were talking about Altair Compu- 
ters-who had one, who had 
ordered one, and when everyone 
was going to get one. Very few peo- 
ple in the club at that time had their 
own computers or could afford to 
build one. 

The only way to have a computer 
was to build your own, which a few 
people had done. I was putting 
some of the finishing touches on my 
video terminal, and starting a file of 
all sorts of microprocessor-related 
information. There were only two 
microprocessors at that time, the 
6800 and the 8080. Since I was 
familiar with minicomputers, the 
6800 struck me as a more intelligent 
machine to go with. 

I started collecting thousands of 
data sheets on terminals, printers, 
breadboarding accessories, and all 
the things that fit into the micropro- 
cessor world. Then the Homebrew 
Club went into a phase of very rapid 
growth. There's probably a few of 


you in this room who were there 
and remember it. It was extremely 
exciting. Each two-week meeting 
was the most important thing in 
your life. Rumors were flying. Peo- 
ple were throwing ideas up in the 
air and guessing what was going to 
happen next. 

Interface Age magazine was intro- 
duced about this time. It had started 
as a southern California computer 
club magazine. Magazines like Byte 
and Interface Age really helped 
make the whole thing happen on a 
national level, because everyone 
was getting informed. Without 
those magazines, it might have 
taken years for this thing to have be- 
come a full-fledged major industry. 

A few other clubs were being 
formed around the country, and the 
magazines would list them. Now 
there are far more Apple Clubs 
alone than the total number of 
clubs in those days. 

Very few companies were making 
hobby computers back then. MITS 
and SPHERE and a couple of others. 
These companies were all small 
enough so that they could afford to 
spend time with us. And since some 
of them were local, we were able to 
see some of their very first demos 
even before the equipment was in 
the stores. We would see some of 
the early equipment, like the first 
IMSAI. 

A lot of the club members were 
interesting personalities. We had 
fellows who would ask around the 
room, "Is there anyone here from 
Intel?" If there wasn't, they would 
donate a bunch of Intel micropro- 
cessors to a raffle. We had our Rona 
Barrett types, too, who managed to 
keep the rumor mills spinning. I 
would say the rumors were 90 per- 
cent inaccurate and 10 percent ac- 
curate, but it was always interesting 
because they were digging up in- 
formation. 

Meetings were like a free forum; 
anyone could stand up and say 
what was going on. We had a few 
used chip salesmen, who were 
hocking chips at low prices and 
various other pieces of equipment 
like motherboards and extender 
parts. We'd have people who 
would get up and say, "I'd like to 
help anyone with hardware or soft- 
ware." And they usually got latched 
onto by someone who really 
needed a program written. There 
were people who would say, "Hey, 
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I need help in this area, can anyone 
help me or locate a part for me?" 

If you think about it, the purpose 
of the club, more than anything 
else, was to facilitate communica- 
tion. Lee Felsenstein, our chairman, 
organized the club so that we had 
what he called a "mapping period." 
Those who wanted something and 
those who had would stand up and 
say what their need or offering was. 
They would sort of "map" together 
and spot who they needed to meet 
with during our "random access 
period," which was a get-around to 
talk with people who had the same 
interests. 

The Club grew quite quickly until 
we had about 550 members meet- 
ing twice a week. This was an ex- 
tremely large number of people 
meeting for something that wasn't 
even making news. 

People also set up demos of 
equipment they were working on. 
That was an opportunity for me to 
show off my video terminal. During 
this period I was designing a 6800 
system, not having any hardware 
but knowing Hewlett-Packard had 
decided on the 6800 as their "stan- 
dard" processor. 

At the time, I could get some at a 
reasonably low cost- like 40 bucks 
per chip. There was no way to get 
an 8080 that cheap in those days. 
So I designed a system around the 
6800, based on timing diagrams. 
When you're a computer designer, 
you have to look at timing diagrams 
and become intimately familiar with 
how many microseconds it takes to 
get from this phase to that event 
and such. 

About the same time, which was 
late summer of 1975, a company 
called MOS Technology began 
making news by claiming they had 
a better processor than the 6800, 
that had been developed by the 
same people that designed the 
6800, was hardware compatible 
with it, and was going to be sold 
over the counter (which was ab- 
surd) for $20. It was amazing, be- 
cause in those days you always had 
to deal with major companies. Go 
through reps, stocking distributors, 
and the like. And here MOS was, 
selling microprocessors over the 
counter. But a lot of people were 
getting interested in this kind of 
thing. 

I and a couple of other Hewlett- 
Packard people who were inter- 


ested in getting microprocessor 
chips took this opportunity to visit 
the MOS Technology booth at a 
trade show and buy their new 
microprocessor-the 6502. 

I can still remember the bus ride 
home. We were looking through 
the manual and discovering what 
the 6502 did and didn't have. That 
night, I went to a meeting of the 
computer club. The people from 
SPHERE came by and told us they 
were about to introduce the Micro- 
SPHERE, which they never really 
did. They also demonstrated a 
larger computer which was like a 
Nova. It had a hard disk with some 
color graphics running to a color TV 
display. In those days, on a hobby 
level, this was unheard of. I was 
very impressed by a color clock on 
the screen, and all the different col- 
ors, so I got interested in color 
graphics. At the time, it was more 
like, "Hey, this is really neat. But it's 
impossible to do because I know 
about TV, and it's difficult to just go 
out and design a color circuit." 

Once I had the 6502, I started 
thinking about what I could do with 
it. I could have gone ahead and 
built a machine, but I was more in- 
terested in going through the man- 
ual and writing some code in the 
native machine language of the pro- 
cessor. I was used to assemblers 
but, unfortunately, there were no 
assemblers available. So I learned a 
technique that I didn't even think 
was possible: I just wrote the code 
down on paper, filling in the op 
codes and the displacements. 

The first thing I wanted to write 
was a BASIC interpreter because it 
was a hot, catchy language and I 
wanted to do the first one for the 
6502. It seemed like an interesting, 
worthwhile project, but it wasn't 
like it was going to be a product or 
something, just something to show 
off to the club. 

I had never programmed in 
BASIC, although I knew it was so 
close to FORTRAN, which I could 
use, that I'd have no problem with 
it. BASIC seemed to be the favored 
language of the club people. 

I'd have loved to write a compiler, 
but it was more important to get it 
written than to have a full language. 

I made tradeoffs to keep the code 
very small and went with an integer 
language. Because I had no assem- 
bler, I was also forced to have a 
loosely bound program with all the 


modules intercommunicating. With 
that kind of code, you need make 
only one change and then, every- 
thing has to be reassembled. I just 
could not take the time to reas- 
semble the code myself by hand. 
That forced me into a structure 
where every new feature in the lan- 
gauge was added on as a module, 
which actually made the develop- 
ment go very quickly and smoothly. 

I got the interpreter developed 
and running on some simulators at 
H-P. Then I thought, "Hmmm-I 
don't have any hardware." As far as 
6502s were concerned, nobody 
had anything in their hands except 
a chip. So I pulled out my own 6800 
design, made the necessary 
changes to accomodate the 6502, 
and came up with a reasonable sys- 
tem that would get me to a point 
where I could connect the key- 
board and the video display. 

There were few processors in 
those days that had keyboard entry. 
This is what people were beginning 
to do with their ALTAIRS. I had al- 
ready been through the front-panel 
switch stage and decided from day 
one that you really want a keyboard 
and video display. 

The computer outfits back then 
did not have such things as monitor 
ROMs. It's a crucial thing to have, at 
least for an Apple II type machine. 
So I wrote a monitor. I kept my de- 
sign small, so it only took me a cou- 
ple of nights to get it wired together 
by hand and tested. I used my exist- 
ing video terminal, which was a 
slow speed terminal but compact 
enough to stick on the same PC 
card as the 6502 processor. 

So I got the computer together, 
and borrowed a four-case static 
card from a friend who had wired 
his own card together out of 2102s. 
And I managed to get it to play and 
got my compiler up, so I was able to 
sit down at the keyboard and test 
things out with a miniscule monitor. 
The circuit eventually became the 
Apple I. 

What helped speed up the devel- 
opment was that every two weeks I 
could go back to the club and talk 
to people and say: "This is what I'm 
doing," and they would listen with 
interest. 

In November, 1975, I took it 
down to the Homebrew Computer 
Club and ran BASIC for the first 
time. Of course, there were no cas- 
sette or even teletype loaders, so I 
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had to type in the text by hand. 
After about an hour, I had enough 
of BASIC working that I could run 
some interesting programs. Some 
high school kids who later became 
part of the early Apple crew would 
sit down and type out demo pro- 
grams. A lot of people were inter- 
ested because the computer was 
small and compact. 

Shortly after this, I decided this 4K 
RAM board was not the way to go 
because everyone was starting to 
introduce 4K dynamic RAM chips. 
They were much more dense and 
compact than the 4K RAM board. 
So I got some AMI, three-transistor, 
cell design parts, surplus at a good 
price. The part was doomed not to 
be made very long. It was a 22-pin 
package, which meant you could 
connect all your address lines to the 
RAM, but you had to design special 
transistor circuits. You know, I'm a 
digital person. I like digital chips, 
but on these you had to design spe- 
cial clock drivers. 

I brought the card up on those dy- 
namic RAMs and it was very impres- 
sive to take it down to the club and 
show people I was using the new 4K 
chips. In the hobby world, you just 
didn't do anything like that when 
they were brand new. 

Steve Jobs got me some and said 
to me "Why don't you use the 
16-pin chips?" I looked at all the 
data sheets and found it was easy to 
interface because you didn't have to 
design an expensive clock driver 
and other types of logic to support 
the dynamic RAM. 

I put these dynamic RAMS on the 
same card with the video terminal 
and processor. It was really quite a 
thrill to look at this entire board and 
know it was a usable computer. A 
lot of people were still talking about 
waiting to get their ALTAIRS and 
switches and maybe buy some peri- 
pherals someday. 

About this time, those of us who 
were interested in the home com- 
puter revolution approached man- 
agement in our lab at H-P and said: 
"Hey, look-with so much RAM, so 
much microprocessor, so much 
video, and a case, you can build a 
computer that talks BASIC and sell 
it for a thousand dollars." H-P had a 
lot of reasons why it couldn't be an 
H-P product. The lab manager said 
it was a great idea for a start-up 
company but wouldn't work for 
H-P. Later, I went through the legal 
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department to get a release for the 
Apple I, which meant that no H-P 
division was interested in it. 

Meanwhile, back at the Home- 
brew Computer Club, we had 
moved into a big auditorium. My 
favorite place was in the back row 
so I could set up my Apple I stuff 
while the show was going on. 
Everybody there was into this idea 
of the computer being a mother- 
board, a processor card, and a 
bunch of 4K RAM cards, and maybe 
a video card and an interface card. 
It was just not integrated enough 
and they looked just like all the 
minicomputers, with lights and HEX 
and switches on the front. 

It was a big advantage to have a 
small, low-cost, integrated compu- 
ter on one PC board, because peo- 
ple got a machine where they could 
talk to the screen and really do use- 
ful things in BASIC. 

I started passing out schematics of 
the thing, since we didn't have a 
product or a company at the time. 
I'd go to people's houses and help 
them wire up their own. Steve Jobs 
said, "Why don't we just form a 
company and sell PC boards? You 
know, people really want these 
things, because hand writing is a 
major operation and a PC board is 
very inexpensive." A lot of people 
were offering PC board level com- 
puters in those days, so I decided 
we'd do it. 

I figured we wouldn't make any 
money at it, but I sold my H-P65 
calculator (partly because I knew 
they were coming out with the 
H-P67) and Steve sold his van, and 
that gave us our starting capital to 
pay a PC designer to design it. All 
the user had to do, once he got the 
board assembled, was plug in trans- 
formers, a video monitor, and a 
keyboard. In those days, it was un- 
heard of for a hobby-type product 
to be that completely assembled. 

Steve managed to sell some com- 
pletely loaded boards, and all of a 
sudden we were in the computer 
business. The ALTAIR bus was still 
the big thing in the hobby clubs: 
People would look at Apple and 
say, "They're just a garage shop." 

If this thing had been designed 
originally as a product, a lot of dif- 
ferent decisions might have been 
made, such as to use the 8080 or go 
with the SI 00 bus, and a certain 
type of product that now makes 
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sense in retrospect wouldn't have 
happened. 

By the time we made our first de- 
livery, we were in desperate need 
of a cassette interface. We ended 
up designing our own, and that 
pretty much gave us the Apple I sys- 
tem. If anyone has one, I wouldn't 
trade it in on an Apple II because it's 
a rare item now. We only built 
about 200 of them, and we only 
shipped about 175. 

The Apple II came out shortly 
after. I had been thinking about 
how to put color on the Apple I and 
about carrying the designs and the 
concept a bit further. By the time I 
had color graphics up and running, 

I would take it down to the club 
every two weeks and show it to 
people. 

We managed to get hold of some 
of the first 16K RAMs coming out, 
because of Steve Jobs's connec- 
tions, and we shipped a couple of 
32K Apple I systems using 16K 
RAMS. I believe they were the first 
computers ever shipped with 16K 
RAMS, because the manufacturers 
couldn't supply any of the big com- 
panies yet. 

A lot of Apple I and Apple II en- 
thusiasm was spurred by the posi- 
tive feedback I'd gotten at the club. 
It was an interesting atmosphere in 
which to develop a product. 

The main function of the clubs is 
to facilitate communication on vari- 
ous levels, and the International Ap- 
ple Core appears to be a very good 
structure to disseminate informa- 
tion to everyone. 

Question: 

Why didn't you go with the SI 00 
bus on the Apple? 

Answer: 

If the decision had been made: 
"Let's start a company and sell some 
products into this market," we 
would have gone with the SI 00 
bus. What happened was that I 
was trying to build a small compu- 
ter for myself. And when you keep 
it small and on one PC board, it just 
led to a more natural: "The micro- 
processor bus has enough informa- 
tion, why go with the 'standard' 
bus?" 

It would also have meant going 
with an 8080 processor, which I 
didn't have and couldn't afford. If 
there had really been an SI 00 bus 
on the Apple computer it probably 
wouldn't have destroyed the Apple 
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concept. It just wasn't necessary, 
and there are enhancements to our 
buss, such as pre-decoded I/O, that 
turned out to be much more favor- 
able. So I'm kind of glad we didn't, 
considering that of all the S100 
companies around, just a few 
emerged as solid companies. 


Question: 

One of the things that makes a 
company really great is allowing 
someone with an idea, regardless of 
how off the wall it is, to play with it. 
Does that kind of thing exist at Ap- 
ple or is the pressure reaching a 
point where you're on a project and 
that's it? 


Answer: 

That kind of development is very 
much encouraged. A lot of people 
at Apple like myself, Bob Bishop 
and some of the others, have just 
come up with off the wall concepts 
overnight or a weekend idea, a 
weekend project, and there's abso- 
lutely no problem unless it gets out 
of hand. I would encourage it as 
long as the normal work gets done. 
We have several specific examples 
where that does happen. A lot of 
our engineers come out of a club 
environment where they did things 
on their own anyway to begin with, 
which was also good. 


Question: 

Remember, that in the design 
days memory was really expensive 
and more characters meant more 
money. A 4K machine was a big 
machine and we couldn't afford to 
supply a video terminal with each 
Apple. We wanted to cut that cost 
down so we decided, hey, well just 
put video out and modulate it and 
go into a TV set and it's a lot less ex- 
pensive besides, everyone has a 
home TV. You can't put more than 
40 characters reliably on a TV, it's 
that simple, the band width of the 
RF units won't cut it. That's how the 
decision was made. If we knew we 
were going to do a system that was 
going to be used for small business, 
word processing and whatnot, the 
decision might have gone a differ- 
ent way. 

Question: 

Is it time to think about the fact 
that everyone's getting a VCR? 


Answer: 

It's funny, but the VCR market 
isn't growing as rapidly as antici- 
pated, although it seems around 
here that it is. But you read the mar- 
keting reports and they're not sell- 
ing many. Maybe in other parts of 
the country. Almost everyone I 
know has a VCR. I think that the 
VCR is a great mechanism. I think 
that there's room for some people 
to design some very simple circuits 
that can transfer data at very high 
rates with sufficient redundancy to 
store large data bases on a VCR and 
even randomly access it. VCRs all 
have the circuitry so you can re- 
wind it, etc., so you might think of a 
VCR operating system. It's possible. 
It's feasible. One of the problems 
you get into is that, whenever you 
have that kind of operating system, 
you have to have gaps between 
data fields. Let's say you have a VCR 
you can start and stop. Well, the 
stopping has to be short relative to 
the data time or your tapes going to 
only be ten percent full of data. It 
turns out that in a few inches on 
video tape you can store far more 
than the amount of memory that 
your system contains. There are 
some problems but I wouldn't be 
surprised if it happens anyway. I 
don't know if you're aware of what 
CORVUS has done with their MIR- 
ROR system, but they back up their 
hard disk on video tape in 10 
minutes. That's a $600 backup 
scheme so you don't have to use 
100 floppies or buy another COR- 
VUS drive to backup the one you 
have. 


For 

Subscription 

Information 

see page 95 



ROMPLUS 

L NEEDS > 

ROMS 

FOR 

APPLES 



RESIDENT FIRMWARE UTILITY 
PROGRAMS WILL EXPAND • THE 
CAPABILITIES AND INCREASE THE 
USEFULNESS OF YOUR APPLE II OR 
APPLE II PLUS! * 


APPLESOFT EDITROM 

Global search, change, or remove any 
string, variable, literal, constant, or basic 
command word that appears in your 
Applesoft Programs. EDITROM uses no 
ram space that will interfere with your 
program. It does not reset any system 
pointers to protect itself and will operate 
with any size system - 16K, 32K, or 48K. 
After EDITROM has been initialized, the 
ampersand (&) command can then be 
used to call the EDITROM back for 
repeated use without readdressing the 
ROM + BOARD. Completely compatible 
with Konzen’s Program Line Editor. If 
PLE is up, EDITROM will keep PLE up 
and allow joint operation. 

Will operate with any version of DOS and 
requires FP in Rom. 35.95 

COMMANDROM 

COMMANDROM Is like having a resident 
‘FID’ but with more operating features 
and conveniences. COMMANDROM will 
read a disks (13 or 16 Sector) File 
Directory Listing and display the 
following: A Command Menu, current 
drive number, number of sectors used 
and left, number of pages set up to hold 
all file names, the first page of file 
names, and an indentification letter next 
to each file name on display. Pressing 
any one of the command keys will load 
or run any file (A ‘B’ file load will display 
start and length addresses.), lock or. 
unlock a file orall files, delete a file - with 
verify before deletion, change from one 
drive to the other, read a ' new disk, 
display a Track/Sector Map, change page 
numbers to view all file listings without 
recataloging, or exit to current language 
or monitor. No system pointers are reset 
and no RAM is reserved for 
COMMANDROM. Requires 48K, 3.2 or 
3.3 DOS and INT or FP in ROM 35.95 


BASICSROM 

Will boot a 13 sector disk on a system 
configured for 16 sector operation. The 
BASICSROM can be addressed on 
coldstart (without Auto Start ROM or 
warmstart (with Auto Start ROM) at any 
time 35.95 


DISK COPY/SPACE ROM 

Duplicates a disk, from either SINGLE or 
DUAL drive, single or dual controller, 13 
or 16 sector and with or without VTOC. 
Options include - Gross copy, active 
sectors only copy, DOS overwrite, auto 
boot of copy disk, free space on disk in 
sectors and kilobytes, and Init and 
volume number are selectable. Requires 
a minimum of 32K 35.95 


'APPLESOFT RENUMBER/ 
MERGEROM 

Made famous by Apple Computer Inc., 
this powerful utility will not disturb any 
part of a program in memory, when it is 
activated. Requires 48K, with or without 
Disk II. 35.95 


‘YOUR’ PLE ROM 

Now you can put your Program Line 
Editor in ROM. Write for details. . $45.95 

•REGISTEREDTRADEMARKS 

BOX 599 

WEST MILFORD, N.J. 07480 

Soft CTRL Systems 
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"NIBBLE IS TEBRIFIC" 
(Fop Your Apple) 

NIBBLE 18: The Reference for Apple computing! 

NIBBLE IS: One of the Fastest Growing new Magazines in 
the Personal Computing Field. 

NIBBLE ISl Providing Comprehensive, UsefuLand 
Instructive Programs for the Home, Small Business, and 
Entertainment. 

NIBBLE IS: A Reference to Graphics, Games, Systems 
Programming Tips, Product News and Reviews, Hardware 
Construction Projects, and a host of other features. 

NIBBLE IS: A magazine suitable for both the Beginner and 
the Advanced Programmer. 

Each issue of NIBBLE features significant new Programs of Commercial Quality. Here’s 
what some of our Readers say: 

- “ Certainly the best magazine on the Apple II” 

- “Programs remarkably easy to enter” 

- “Stimulating and Informative; So much so that this is the first computer magazine Vve 
subscribed to!” 

- “Impressed with the quality and content ” 

- “NIBBLE IS TERRIFIC!” 


In coming issues , look for: 

□ Stocks and Commodities Charting □ Assembly Language Programming Column 

□ Pascal Programming Column □ Data Base Programs for Home and Business 

□ Personal Investment Analysis □ Electronic Secretary for Time Management 

□ The GIZMO Business Simulation Game 

And many many more! 

NIBBLE is focused completely 
on the Apple Computer systems. 

Buy NIBBLE through your local 
Apple Dealer or subscribe now with 
the coupon below. 

Try a NIBBLE! 


NOTE 

hirst Class or Air Mail is required tor all APO, hPO and all loreign addresses 
with the following additional amounts 

Air Mail Postage Rates 12-14 oz. x 8 
Europe $32.00 

Mexico and Central America $21.00 
South America $32.00 
Middle East $35.00 
Africa: North $32.00 
Central $43.00 
South $43.00 
Far East, Australia $43.00 
Canada $18.00 
APO FPO $7.50 


nibble 

Box 325, Lincoln, MA. 01773 (617) 259-9710 

I'll try nibble! 

Enclosed is my $17.50 (for one year). 
(Outside U.S., see special rates on this page.) 

□ check □money order 

Your subscription will begin with the next issue published after 
receipt of your check/money order. 


Name 

Address 

City 

State Zip. 
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THE APPLE II 
CASSETTE INTERFACE 

an IAC APNOTE 

furnished by Apple Computer , Inc. 


INTRODUCTION: 

This note is to explain the cassette 
interface built into the Apple II and 
Apple II plus. Included is informa- 
tion on the format and use of the 
read and write subroutines. It is as- 
sumed in this note that the cassette 
recorder is in the proper mode, 
play or record, when the read and 
write routines are executed. Also 
note that the timing is approximate 
and may vary from one Apple to 
another. 


RECORDS: 

A record is a block of binary data. 
This data may be a BASIC or APPLE- 
SOFT program, a machine language 
program, or just binary data. Rec- 
ords representing BASIC or APPLE- 
SOFT programs are really two rec- 
ords, the length of the program and 
the actual program. A record con- 
sists of a header, sync bit, the actual 
data, and a checksum byte for error 
detection. 


MONITOR RECORD FORMAT 


— 

HEADER 

— 

s 

DATA 

C 


BASIC PROGRAM RECORD 
FORMAT 


HEADER 

S 

LB 

c 

HEADER 

S 

PROGRAM 

C 


KEY: S= SYNC BIT 

C = CHECKSUM BYTE 
LB = BASIC PROGRAM LENGTH 


THE HEADER: 

The header consists of 1 0 seconds 
of 770 Hz tone, (1 cycle equals 
1300 microseconds). This is enough 
time for the cassette motor to get up 
to speed and the plastic tape leader 
to go by. There is also a shortened 
header between the BASIC length 
bytes and the BASIC program itself. 
This header is generated by a sub- 
routine called HEADR. The value of 
the accumulator on entry controls 
the length of the header tone. This 
can vary from 0.2 seconds to 40 
seconds. On entry, the X register 
should be 0, and the carry flag 
should be set. HEADR also gener- 
ates a sync bit at the end of the 
tone. HEADR resides at hexa- 
decimal address $FCC9, or decimal 
address -882. 


THE SYNC BIT: 

The sync bit is one half cycle of 
2500 Hz, (200 microseconds) and 
one half cycle of 2000 Hz, (250 
microseconds). It is used to signal 
the end of the header tone and the 
start of the data. It is generated by 
HEADR. 


THE LAST CYCLE OF HEADER 
TONE AND SYNC BIT 


r 



1300 microseconds 

200 

250 

header tone 

1 

sync 

bit 


A ZERO BIT AND A ONE BIT 






1 

I 500 usee 

1 

1000 usee j 


THE DATA: 

The data is recorded on the tape 
with a low starting address and a 
high ending address. Each byte of 
data is shifted out most significant 
bit first, least significant bit last. A 
zero bit is made up of one cycle of 2 
kHz, (250 microseconds per half cy- 
cle) and a one bit is one cycle of 1 
kHz, (500 microseconds per half cy- 
cle). This works out to 2000 baud 
for zeros only and 1000 baud for 
ones, an average of 1500 baud. 
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THE CHECKSUM: 

All during reading or writing, 
each data byte is EXCLUSIVE OR-ed 
with a checksum byte. This byte is 
written on the tape at the end of the 
data block. If the checksum com- 
puted during a read agrees with the 
checksum that was written out, 
then the data is probably good. This 
method will detect an odd number 
of errors for any of the eight bits of 
the byte. 

WRITING DATA: 

The cassette output circuitry is 
quite simple. It is a flip-flop con- 
nected through a voltage divider to 
the jack on the back panel of the 
Apple. Any time the address $C020 
is accessed, this flip-flop changes 
state. Accessing the flip-flop once 
every 500 microseconds generates 
a 1000 Hz tone. 

READING DATA: 

The cassette input circuit is more 
complicated. It consists of a 741 
operational amplifier configured as 
a zero crossing detector. That 
means that whenever the voltage at 
the input jack goes from positive to 
negative, (or negative to positive) 
the output of the amplifier switches 
from a 1 to a 0 (or 0 to 1). The de- 
tector is accessed by any read to 
address $C060. The sign bit (most 


significant bit) reflects the detector 
status. The read routines continu- 
ally EXCLUSIVE ORs this bit with 
the value most recently read to de- 
tect a change in state. The amount 
of time required to change state in- 
dicates the incoming frequency, 
which then is used to determine if a 
one or a zero has been received. 
After detecting the first zero cross- 
ing at the start of a read, the read 
routine uses HEADR to generate a 
3.5 delay then waits for the sync bit. 
It then reads the data and puts it in 
the specified memory range. 

USING THE CASSETTE 
INTERFACE: 

To either read or write all you 
need do is specify an address range 
and execute the read or write sub- 
routine. The address range is stored 
in four bytes, two for the start and 
two for the end. In both cases the 
least significant byte is first. 


FROM THE MONITOR: 

If the start is $800 and the end is 
$9FF then 


800.9FFW will write the data to 
the cassette and 
800.9FFR will read it. 


FROM MACHINE LANGUAGE: 

Again if the start is $800 and the 
end is $9FF then store the address 
range. 

LDA #$00 

STA $3C starting address low 
LDA #$08 

STA $3D starting address high 
LDA #$FF 

STA $3E ending address low 
LDA #$09 

STA $3F ending address high 

therr JSR $FEDC to write the data to 
the cassette or JSR $FEFD to read 
from the cassette. 

FROM BASIC: 

First set up the address range. If 
S= the start and E=the end, then 
from Integer Basic, 

POKE 60, S MOD 256 
POKE 61, S / 256 
POKE 62, E MOD 256 
POKE 63, E / 256 

or from APPLESOFT, 


POKE 60, S — INT(S / 256) * 256 
POKE 61, S / 256 
POKE 62, E — INT(E / 256) * 256 
POKE 63, E / 256 

Then to write out to cassette CALL 
-307 or to read in from the cassette 
CALL -259. 



INTERNATIONAL 
APPLE CORE 


APPLE 
ORCHARD 
BACK ISSUES 


Back issues of Apple Orchard are available, while supplies 
last, as follows: 

Volume 1 , Number 1 — $ 5.00 each 
All other issues— $3.50 each 


(No. 2 is no longer available) 

Please send your name, address, and issue number(s), 
along with a check, money order, or your VISA or Master- 
Card number and expiration date to: 

Apple Orchard Subscriptions 
P.O.Box 1493 
Beaverton, Oregon 97075 
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***SYNTAX ERR 

Several questions have arisen in connection with Applesoft 
Program Listing Formatter in the Winter, 1980-81 Apple Or- 
chard. The EXEC file creator, which we apologize for omit- 
ting, appears below. 

We have just finished re-testing the formatter on our 
system, and it works as published in the Orchard. Unfor- 
tunately, what's fair isn't always fair, meaning that it appar- 
ently does not work properly with all printer configurations, 
notably the Silentype. A number of modifications have been 
suggested, some of which seem to work, to one degree or 
another. 

The problem lies in lines 6 and 28, with the CALL 65171 
and CALL 65161, which do the monitor equivalent of a PR#0 
and IN# 0 respectively. The purpose of the IN# 0 is to disable 
Program Line Editor, should it happen to be in memory, so 
that the ESCape function of the list formatter would operate, 
and the PR# 0 was to return control of the output routine to 
the screen without printing a linefeed on the printer, which 
would occur if the PR# 0 was used, since it must be in the 
form of a PRINT statement, and DOS will not accept a PRINT 
statement ending in a semicolon. So the irresistable force has 
met the immovable object, almost. 

Some possible solutions: 

Remove the CALL 65161 outright (but make sure PLE is 
not in memory). 

Change the CALL 65171 to PRINT D$"PR# 0" or 

Follow the CALL 65171 with a CALL 976 (to restore 
DOS) 


At last. ..the 

Typewriter Interface! 




Turn your electric typewriter into a low cost, high 
quality hard copy printer. 1 Year Warranty 

Dynatyper— the patented* RDI— I/O Pak is fast becoming the industry 

standard for typewriter output. Why? Because: 

1. It takes 2 minutes to initially install and 5 seconds to remove or 
replace. 

2. You do not have to modify your typewriter. All factory warranties 
and maintenance agreements on your typewriter will be honored. 

3. You can use it with all powered carriage return typewriters that 
have U.S. keyboard. Our Model I works with all non Selectrics and 
our Model II works with Selectrics. Conversion between models 
takes 2 minutes and the kit (26 plungers) is available for a nominal 
charge. 

4. You don’t have to lug around a bulky printer when you travel. If 
there is a typewriter at your destination, you can install the light 
(3 lbs.) I/O Pak in just 2 minutes. 

5. Same interface for TRS-80, Apple and GPIB. Centronics and Pet 
compatible interfaces are available in third quarter 1980. Electric 
pencil available. 

6. Delivery: Stock to two weeks. Price: $499. for the complete system, 
FOB Rochester, Domestic. 

Over 1000 in operation today. VISA and MasterCard accepted. 

Call Ken Yanicky at 716-442-7804. 


=ki i q 


3000 Winton Road South, Rochester, New York 14623 incorporated 


5 REM 

EXEC FILE CREATOR FOR 

PROGRAM LISTING FORMATTER 

APPLE ORCHARD 3 * WINTER 1980-81 

10 D$ = CHR* (13) + CHR* <4>t PRINT 
D*-QPENFP LIST M DVWRITEFP LI 
ST- 

15 PRINT -POKE OrPEEK( 103)1 POKE 1 
rPEEK< 104 )lP0KE2rPEEK( 175 )1P 
QKE3fPEEK< 176)- 

20 PRINT -POKE 104 * PEEK< 176 )• 

30 PRINT -IF PEEK( 175 )=255 THEN 
POKE 104rPEEK( 104 HI” 

40 PRINT M POKE103*( PEEK( 175 HI )- 
INT( < PEEK< 175 HI )/256 )*256 w 

50 PRINT -POKE PEEK< 103 HPEEK< 10 
4 >*256-1 f0- 

60 PRINT "POKE PEEK< 103 HPEEKt 10 
4 )*256 9 0“ 

70 PRINT -POKE PEEK( 103 HPEEK( 10 
4 >*256+1 t0 H 

80 PRINT -RUN PROGRAM LISTING FO 
RMATTER” 

90 PRINT D$-CL0SE- 

100 END 


THE MAILING LABEL AND FILING SYSTEM 

From Avant-Garde Creations only $24.95 ppd. 

This unique system will handle both your filing needs and your 
mailing label needs. 

It’s uniqueness starts with user-determined variables (up to 10 
options) and continues with a special COUNT/SORT routine that 
allows the user to sort up to 9 VALUES for each of any 9 (out of 18) 
variables. It will print mailing labels, do a regular print-out or 
just display the criteria- meeting records while it counts them. It 
will also range-sort for 3 particular variables. 

It makes an alphabetized directory of names and record numbers. 
You can find records by name or by numbers in seconds. If you 
don’t know the exact spelling there’s a quick-find option for directory- 
reading. 

You can customize your labels and print up to 6 lines of your 
variables on them. 

It includes special quick-copy and backup programs. 

An easy to use system, brimming with options and dynamics, 
which ends the need for separate filing and mailing label programs. 

Includes 40-page program manual and disk. APPLE II PLUS, 
48K, one or two disk drives. 


$24.95 ppd. 

We accept VISA/Mastercharge 

Write for our detailed brochure 
and more information: 

Avant-Garde Creations 
P.O. Box 30161 
Eugene, OR 97403 
Dept, ao 
503-345-3403 
Noon to 6 pm. 
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INTERNATIONAL 
APPLE CORE 


THE I.A.C. IS COMING 
TO CHICAGO 

FOR THE SECOND ANNUAL 
GENERAL MEETING AND SEMINARS . . 
SATURDAY and SUNDAY MAY 2nd & 3rd 


AT THE CHICAGO O’HARE 
MARRIOTT HOTEL 
IN CHICAGO 

\ GENERAL BUSIES 1 

VlstiS- \ 

\ charge- inVlt ed to send a 1 

\ All member c\u ting . Each 1 

1 "p.^n.at.ve ‘0 ^ , he , uW re 1 

1 club has a vote a I 

l direction ot tne 


SUNDAY MAY 3rd 
9 A.M. to 5 P.M. 

SEMINARS 

Some of the speakers will be: 

• Steven Wozniak, 

V.P. & Founder, Apple Computer 

• Phil Roybal, 

V.P. Marketing, Apple Computer 

• Steven Jobs, 

V.P. & Founder, Apple Computer 

• Mark Pump, 

Northern Illinois Apple Users Group. 

• Vern Rayburn, 

Microsoft, Inc. 

• Berry Yarkoni, 

Apple III Product Marketing Manager. 

• Tom Woteki, 

Washington Apple PI. 

Tickets in advance — $5 
At the door — $7.50 
Limit first 1200 tickets. 


I REQUEST FOR TICKETS 


ADDRESS 

j CITY/STATE/ZIP 

! — NO. OF TICKETS/$5 EA. TOTAL$_ 

l|j MAKE CHECK PAYABLE TO: 
m INTERNATIONAL APPLE CORE 
llj P.O. BOX 976 

j DALY CITY, CALIFORNIA 94017 
I PLEASE WRITE “TICKET ORDER” ON 
■ LOWER LEFT SIDE OF ENVELOPE 


Following the I.A.C. Meeting 
Monday May 4 thru Thur. May 7 

THE NATIONAL COMPUTER 
CONFERENCE AND PERSONAL 
COMPUTING FESTIVAL 
AT 

McCORMICK PLACE, 
CHICAGO, ILLINOIS 

Make plans to attend both the 
I.A.C. meetings and the N.C.C. Conference! 
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NEW PRODUCT PARADE 

edited by Mark L. Crosby 
I.A.C. New Products Editor 


80-COLUMN APPLE II CARD 

The Full-View 80 is an 80x24 upper/lower- 
case plug-in card that provides 80-column 
capability while retaining the standard 
40-character and graphics operating modes. 
You can select the different displays via key- 
stroke or under program control. Two 
models provide either a 7x9 or 5x7 dot 
matrix (the latter suitable for low-perfor- 
mance monitors). Custom-designed charac- 
ter sets are available via EPROM. Full key- 
board editing, complete cursor control and 
tabbing. Incorporates PASCAL and BASIC 
protocols. $395. 

Contact: Bit 3 Computer Corp., 1890 
Huron Street, St. Paul, MN 55113. 


Hardware 


REAL-TIME CLOCK - BSR CONTROL 

THUNDERCLOCK PLUS is two systems on 
one peripheral card. It provides month, date, 
day-of-week, hour, minute and second. 
Selectable time formats: 24 hour or AM/PM 
ASCII string or numeric values. Software con- 
trolled interrupts are included. Battery pro- 
vides backup power when the Apple II is 
turned off. It is also an interface for the 
popular BSR X-1 0 Home Control System. This 
board, with the Ultrasonic Interface Option, 
controls AC outlets through your BSR Com- 
mand Console and Apple II. All 22 BSR com- 
mands are available for your program's use 
including 128 brightness levels-$139 with 
manual. Ultrasonic Interface Option with 
software disk and manual- $49. 


SELECTRIC CONVERSION SYSTEM 

This system permits you to connect your 
computer to any Selectric I, II, or III. De- 
signed for both business and personal use for 
word processing, accounting and program- 
ming. Manual operation of the typewriter is 
not affected. A single-board computer gives 
precise control of functions and timing. Inter- 
nal firmware features include form-feed, buf- 
fer hold, bell output, backspace and tab 
control. Parallel and RS-232C versions are 
standard. An adapter to IEEE-488 is available. 
Baud rates are switch-selectable from 1 10 to 
9600. Prices range from $575 to $675, with 
OEM and dealer quantity discounts 
available. 

Contact: ESCON Products, Inc., 12919 
Alcosta Boulevard, San Ramon, CA 94583 
(415) 820-1256. 


80-COLUMN CARD 

SUP'RTERMINAL is an 80 column by 24 
line plug-in compatible board that includes 
lower case-all 128 ASCII characters. It is 
compatible with all Apple II peripherals. This 
card's features include a 5x8 dot matrix with 
inverse characters, shift lock, upper/lower 
case data entry at the keyboard, a user de- 
finable character set, compatibility with the 
Apple II Communication Interface, and fast 
scrolling and clearing. SupYterminal's display 
is suitable for an inexpensive (8 MHz) moni- 
tor. All monitor-type escapes are valid — 
follows protocols of PASCAL and BASIC op- 
erating systems and incorporates control 
characters for both languages. 


Contact: M & R Enterprises, P.O. Box 
61011, Sunnyvale, California 94088. 


Contact: Thunderware Incorporated, P.O. 
Box 13322, Oakland, California 94661 (800) 
227-6204 ext. 307- in California (800) 
632-2131 ext. 307. 


REAL TIME CLOCK 

SUPERCLOCK II is a new Real Time Clock 
for the Apple II computer. This compact 
board plugs into any slot of the computer and 
provides time and calendar information as 
well as advanced interrupt capabilities. 
Other features include: timing from milli- 
seconds to years, control firmware in PROM, 
write protect switch, and 12/24 hour format. 
The SUPERCLOCK is easily read from BASIC, 
Applesoft, and PASCAL. Will work with exist- 
ing software written for the Mountain Hard- 
ware clock. Up to four software controlled 
interrupts can be used to allow foreground/ 
background programming. Automatic updat- 
ing of the Filer and each booted disk in 
PASCAL. Includes a long-life rechargable bat- 
tery. Several utility programs are included. 
For example, one automatically maintains a 
date for each file in the Catalog. $159. 


Contact: West Side Electronics, P.O. Box 
636, Chatsworth, CA 91311. 


CENTRONICS 

PARALLEL PRINTER INTERFACE 

California Computer Systems has released 
the Model 7728 for compatability with print- 
ers using centronics-type interfaces (IDS 
Paper Tiger, Microtek MT-80P and MPI 88T, 
Okidata Microline 80 and Centronics print- 
ers). The 256 byte ROM driver responds to 
standard Apple II printer commands. Sup- 
ports interrupt daisy chain with arbitration 
logic including IRQ generation and DMA 
daisy chain passthrough. 8-bit data output 
bus, four status inputs, data strobe and 
acknowledge handshake signals and a 
printer reset signal. $119.95. 

Contact: California Computer Systems, 250 
Caribbean Drive, Sunnyvale, CA 94086. 


MOBILE APPLE POWER SYSTEM 

The Mobile Apple System is a power sup- 
ply designed to allow an Apple computer to 
operate from an automobile's 12 volt battery. 
The system is available for $1 10.00 with dis- 
counts available for larger quantities. 

Contact: Dr. George Grinstein, CPU, Inc., 
5161 Atlanta Highway, Montgomery, AL 
36109. 


DOUBLE VISION 

Includes a full 1 28 character set with a fully 
programmable cursor, built-in light pen capa- 
bility, inverse video, an 80 column by 24 line 
display with upper and lower case. This card 
permits you to have graphics on the Apple 
video output. Can use either the ESCape key 
or a one-wire modification to the shift key for 
upper/lower case entry. It is compatible with 
various word processing systems including 
Apple-Pie 2.0, EasyWriter Professional Sys- 
tem, Text Tditor/Formatter. Transparent for 
use with BASIC and PASCAL. 


Contact: The Computer Stop, 16919 Haw- 
thorne Blvd., Lawndale, California 90260 
(213) 371-4010. 


Producers of hardware and software for the 
Apple line of computers should send news 
releases 3 months in advance to NEW PROD- 
UCTS EDITOR, Apple Orchard, P.O. Box 
976, Daly City, California 94017. The IAC 
cannot be held responsible for claims made 
by manufacturers. 
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SWITCHABLE 
ISOLATOR/I NTE RRU PTE R 

The ISOLATOR features input Spike/Surge 
Suppression together with three individually 
switched and filtered sockets. Total isolator 
load capability is 1875 watts maximum, with 
each switched, filtered socket capable of 
handling a 1 KW load. Each switch has an 
associated pilot light. MODEL ISO-6 $128.95 

The POWER INTERRUPTER disconnects 
power from controlled apparatus if AC line 
voltage is disrupted or exceeds user select- 
able limits. Front panel controls provide 
UNDER/OVER voltage interrupt level selec- 
tion and Power Reset. Other features include 
integral Spike/Surge Supression and response 
delay to prevent false interrupts. The inter- 
rupter can accommodate a 15 amp resistive 
load or a 10 amp inductive load. MODEL Pl- 
15-O/U OVER AND UNDER-VOLTAGE 
$142.95. MODEL PI-15-U UNDER-VOLTAGE 
ONLY $127.95. 

Contact: Electronic Specialists, Inc., 171 
South Main Street, Natick, MA 01760 (617) 
655-1532. 


SURGE PROTECTION 

Various models of surge protectors are de- 
signed to protect equipment using standard 
3-prong, NEMA 5-1 5P plugs. Nominal re- 
sponse time of one picosecond gives fast, 
transient surge suppression. Clamps any volt- 
age rise of more than 10 above normal. Its 
rated dissipation is 600,000 watts at 100 
microseconds. Prices range from $89.50 for 
standard duplex (1 20 or 220 volt) to $1 32.50 
for a surge & dropout model. International, 
Terminal Strip, and Systems models 
available. 


Contact: Advance Products, Manufacturers 
Representative for RKS Enterprises, Inc., 
1086 Bush Street, Suite 302, San Francisco, 
California 94109 (415) 771-6953. 


16K MEMORY CARD 
FOR THE APPLE II 

RAMCard is a circuit card for the Apple II 
computer that provides an additional 16K of 
RAM to Apple users, converting a 48K to a 
64K system. It is compatible with Microsoft's 
SoftCard peripheral and can be used with all 
software available for the SoftCard. When 
used with SoftCard, RAMCard provides a full 
56K CP/M environment expanding the utility 
of Microsoft's CP/M languages for the Apple: 
FORTRAN-80, COBOL-80 and BASIC-80. It 
can also be used to provide additional mem- 
ory space for other Apple software packages. 
Installation takes just a few minutes using 
step-by-step instructions. RAMCard requires 
an Apple II or Apple II Plus with 48K RAM. It 
cannot be used in addition to the Apple Lan- 
guage Card. $195.00 


Contact: Microsoft Consumer Products, 
400 108th Ave. NE, Suite 200, Bellevue, WA 
98004 (206) 454-1315. 


BAR CODE READER 

The ABT BarWand, a modified Hewlett- 
Packard HEDS 3000 reader, simply plugs into 
the Apple II or III game I/O. This wand allows 
the familiar bar patterns to be read by the 
computer. Software packages are available to 
read Universal Product Code (UPC), to print 
and read our own Label Code and Applesoft 
programs in Paperbyte Code. The latter are 
two forms of bar code which can be printed 
with an inexpensive matrix printer. Sounds a 
scan tone when date has been read correctly. 
Warrantied for one year, includes a demon- 
stration diskette. $195.00 


Contact: Advanced Business Technology, 
Inc., 12333 Saratoga-Sunnyvale Road, Sara- 
toga, CA 95070 (408) 446-2013. 


ROM SIMULATOR 
FOR THE APPLE II 

This simulator takes the place of a ROM 
while developing a program for a real ROM. 
It holds a program in the exact location the 
ROM version will ultimately reside and plugs 
into the destination ROM socket. The simula- 
tor can be used to increase the RAM avail- 
able and replace one of the present system 
ROMs with RAM when used in an Apple II. 
The card contains the logic necessary to 
automatically switch control of the address 
and data buss from the Apple II to the Lamar 
Instruments Superkim (target) ROM sockets. 
$395.00 


Contact: Lamar Instruments, 2107 Artesia 
Blvd., Redondo Beach, CA 90278 (213) 
374-1673. 


NEW DISK DRIVES FOR APPLE II 

I 

Micro-Sci has introduced two new Apple- 
compatible disk sub systems. The A-40 is a 40 
track drive which provides 12.5 percent in- 
crease in capacity and 3 times the speed in 
track-to-track access. The A-70 has 70 tracks 
effectively doubling the capacity of a stan- 
dard Apple II drive. The disk controller pro- 
vides compatibilty with DOS 3.2, DOS 3.3 
and Pascal systems. This is achieved with a 
jumper selectable boot prom. Disks written 
with the Micro-Sci drive cannot be read with 
Apple II drives, but it can read diskettes gener- 
ated by the standard Apple II drives. Uses 
band positioning and standby power down 
circuitry yet draws no more current than an 
Apple II disk system. A-40 w/controller $495; 
wo/controller $395; A-70 $675 & $575, 
respectively. 


Contact: Micro-Sci, Division of Standun 
Controls, Inc., 1405 E. Chapman Avenue, 
Suite E, Orange, CA 92666 (714) 997-9260. 


INTERACTIVE VTR BOARD 

The C.A.V.I. permits control of an indus- 
trial video recorder/player for random access 
of video tape segments. Software is provided 
to control all VTR functions, including audio/ 
video switching. Optional software is avail- 
able as a lesson authoring system. The system 
is designed to permit creating your own 
Computer Assisted Video Instruction pro- 
gram. BCD Associates will provide custom 
video tape production services. Requires Ap- 
ple II with ROM Applesoft and 48K of mem- 
ory, Disk II with controller, Color TV moni- 
tor, Industrial video Tape Recorder or Player. 
Includes interface card, control cables, oper- 
ating software on disk, and instructions- 
$495.00 'The Instructor" Courseware Author- 
ing System -$295.00 


Contact: BCD Associates, 1216 n. 

Blackwelder Avenue., Oklahoma City, OK 
73106 (405) 524-7403. 


APPLE VIDEO RECORDING BOARD 

The Adwar Apple Proc Mod is a circuit 
board which plugs into Slot #7 inside the Ap- 
ple computer and processes the sync infor- 
mation. This permits Vi and 3 A inch video 
tape recording of the Apple signal. You can 
duplicate and edit such a tape without the 
usual loss of color. The Proc Mod brings the 
Apple signal closer to standard video toler- 
ances so that video equipment can use the 
signal properly. This board stores an entire 
Apple video frame in solid state memory at 
the Apple scanning rate and then reads from 
that memory at the standard broadcast rate. 


Contact: Adwar Video, 100 Fifth Avenue, 
New York, NY 10011 (212) 691-0876. 


VIDEO DIGITIZER 

The Dithertizer II is a peripheral board for 
the Apple II which utilizes a video camera 
with external sync to load the high resolution 
page of the Apple II with any image that can 
be captured with the camera. It requires only 
one frame (1 /60th of a second) to capture a 
binary image. Software is included to build 
dithered (psuedo gray scale via half tones) 
images from multiple binary images and to 
capture image intensity contours using image 
subtraction. Contrast and density of the im- 
age may be varied with the game paddles 
and viewed on a monitor. Requires a video 
camera with external sync. Dithertizer II 
$300.00, B&W video Camera (Sanyo VC 
161 OX) $410.00, complete package $650.00. 


Contact: Computer Station, 12 Crossroads 
Plaza, Granite City, IL 62040 (618) 452-1860, 
or, Peripherals Plus, 119 Maple Avenue, 
Morristown, NJ 07960 (201) 538-3385. 
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GRAPHIC TERMINAL 

Fantastick-I is a multifunctional terminal 
that lets you draw and move patterns on the 
screen, and is also capable of analyzing 
drawn patterns. It is plug-compatible with the 
Apple II, consisting of a joystick, SW1-SW3 
buttons, tenkey, I/O expansion connector, 
pilot lamp, and changeover switch on the re- 
verse side. Software is included for various 
modes of drawing/data entry, subroutines 
provide slide, revolve, color control, count, 
painting, disk commands. $125.00 

Contact: Hypersoft International, Inc., 

3928 S. Sepulveda Blvd. #9, Culver City, Cali- 
fornia 90230 (213) 397-2274. 


16 CHANNEL VARIABLE A-D BOARD 

This board allows you to digitally store, 
analyze, display and print out your measure- 
ments. Can be used for measuring position, 
pressure, light, temperature. Could be used 
as a computerized volt-ohm meter. Has vari- 
able gain allowing increased measurements 
from 5 to 100 volts. Includes a complete soft- 
ware package with test kit, calibration 
method, and various applications. $179.95 

Contact: Computer Technology Associates, 
5812 Cromo Drive, Suite 102, El Paso, Texas 
79912 (800) 854-2003 ext 81 5 -in California 
(800) 522-1500 ext. 815. 


SPEECH SYNTHESIZER 

The ECHO II speech synthesizer for the Ap- 
ple II allows the creation of your own voca- 
bulary with phonemes (word sounds) while 
using very little RAM memory (approx. 800 
bytes + 20 bytes/word). Enhanced operating 
systems and vocabulary ROMs will be of- 
fered as they become available. This peri- 
pheral card fits into an available slot within 
the Apple II. Comes complete with speaker, 
instruction, manual, and a disk containing a 
speech editor, sample programs, and a sam- 
ple vocabulary- $225. 

Contact: Street Electronics Corporation, 
3152 E. La Palma Avenue, Suite C, Anaheim, 
California 92806 (714) 632-9950. 


Software 


MICRO-PAINTER 

This software package uses high-resolution 
graphics to "paint" pictures in 21 different 
colors on the Apple II. Micro-Painter includes 
dot-by-dot and inverse coloring. Pictures can 
be saved or displayed in any combination of 
colors or in an unpainted state. Pictures can 
also be repainted at any time. Micro-Painter 
is written in both BASIC and Machine Lan- 
guage for all Apple II computers. $34.95 

Contact: Datasoft, 16606 Schoenborn St., 
Sepulveda, CA 91343 (800) 423-5630; in 
California (213) 894-9154. 


APPLE ORCHARD 

INSTRUCTOR GRADEBOOK 
FOR THE APPLE II 

Serendipity Systems is offering this tool for 
educators at every grade level. Records and 
reports individual and class performance for 
classes of up to 400 students, and statistically 
meaures the effectiveness of teaching and 
evaluation techniques. Offers various grading 
categories, e.g., test, homework, quiz which 
are then "weighed" by the user to produce 
final scores. Marks can be entered either as 
numbers or as letter grades. Reports include 
alphabetized class lists, blind grade listings 
by student I.D. for posting, individual perfor- 
mance reports and permanent class records. 
A 30 page self-teaching manual is included 
that is designed for the computer novice - 
$169. 

Contact: Serendipity Systems Inc., 225 
Elima Road, Ithaca, New York 14850 (607) 
277-4889. 


SCHOOL ADMINISTRATIVE 
PACKAGES 

This system contains four modules, all 
available separately, which allow for teacher 
compilation of grades from class assignments 
and tests, the input and preparation of grades 
to print report cards and maintain student 
records, the preparation of reports to gui- 
dance counsellors for class scheduling pur- 
poses and the preparation of master school 
schedules and individual student schedules. 
Module 1, The Electric Gradebook, main- 
tains assignment-by-assignment records of 
student progress- $49.95. Module 2, The 
Grade Program, allows the inputting of 
grades and test scores in order to prepare 
report cards and such sorted lists as honor 
rolls-$259.95. Module 3, the Counsellor 
Element, manages students records to pre- 
pare summary grade reports, file copies of 
grades and file folder labels- $89.95. Module 
4, The Schedule Component, prints student 
course request forms, allows request form 
entry, accepts proposed course offerings, 
and prepares master school class schedules 
and individual student schedules-$259.95. 

Contact: CompuSoCo, 26251 Via Roble, 
P.O. Box 2325, Mission Viejo, CA 92690 


The "Assistant Principal" is a complete ad- 
ministrative package for high school and 
junior high schools. The package provides 
total control of class rosters, student master 
records, student schedules, teacher assign- 
ments, and grade reporting. Allows design of 
student input documents, student entry, class 
scheduling, accepts grades and test scores, 
prints report cards, file folder labels and pre- 
pares student master records. The system 
automatically prints ranked class lists and 
records attendance information. Requires 
two disk drives and Applesoft ROM. Includes 
seven diskettes with a 2-volume operating 
manual for $500.00. Operating manuals are 
available separately for $50.00 

Contact: Monument Computer Service, 
Village Data Center, P.O. Box 603, Joshua 
Tree, CA 92284 (800) 854-0561 . In California 
(800) 432-7257. 
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GENERAL PURPOSE 
PLOTTING PACKAGE 

AppleGraph is a high-quality software 
package for plotting in a variety of formats for 
use by the business, professional, and re- 
search decision maker. Yields high-resolu- 
tion, multicolor graphics for video display 
and hardcopy output. Featured are pie charts 
generated separately or bar graphs, area 
plots, points, and solid or dashed lines pro- 
duced in any combination of overlays. Uses 
English language commands which may be 
entered interactively or in advance for 
automatic presentation of an entire data anal- 
ysis complete with mathematical manipula- 
tion, curvefitting, smoothing, and simple sta- 
tistics. Supports hardcopy on Silentype, 
Qume, Paper Tiger, and HIPLOT. 

Contact: Business & Professional Software, 
Inc., P.O. Box 11 Kendall Square Branch, 
Cambridge, Massachusetts 02142. (617) 
491-3377. 


HI-RES GRAPHICS 
TEXT WRITER 

With Applewriter Graphics, Apple users 
may now obtain hard copy of the character 
sets available with the DOS 3.3 Tool Kit. The 
graphics driver is transparent when used in 
conjunction with Applewriter; all the menus 
and options for editing and printing are still 
there, but now a variety of print "fonts" are 
available for the final draft. Requires 3.3 
DOS, DOS Tool Kit, Apple parallel or Cen- 
tronics interface card with other drivers to be 
available soon. May be used as a stand alone 
package for use with the print statements in 
programs. $34.95. 

Contact: Computer Station, 12 Crossroads 
Plaza, Granite City, Illinois 62040 (618) 
452-1860. 


WORD PROCESSING SOFTWARE 

SUPER TEXT II is an advanced word pro- 
cessing system for the Apple II. Contains new 
features like preview mode and SHIFTkey 
modification. Supplied with a backup copy 
of the program disk and newly rewritten 
documentation. This system will operate 
with the Apple II Plus with 48K and a disk 
drive. Offers compatibility with several 
80x24 video boards, single key cursor con- 
trol, automatic word overflow, character, 
word and line insertion and deletion scroll- 
ing, automatic paragraph indentation, ditto 
key, "the" key, block copy, save and delete, 
decimal alignment, justification, page num- 
bering, centering, super/subscripting, on 
screen lower case with Paymar and Muse 
adapters, split screen, on-screen floating 
point calculations. Auto-Link feature pro- 
vides unlimited file size when doing find, find 
and replace, preview or printing operations. 
— $150 (trade-ins up to $100 for old Super- 
Text). 

Contact: MUSE, 330 N. Charles Street, Bal- 
timore, Maryland 21201 (301) 659-7212. 
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FINANCIAL ANALYSIS 

Desktop PLAN -A Programming Language 
for ANalysis is a flexible tool which will allow 
you to customize your own financial reports. 
In a step-by-step process you develop report 
design and data values interactively. You 
then enter in calculation rules (e.g. "Multiply 
line 22 by line 77 save in line 23, columns 
1-12"). The model you have then created 
may be re-executed as many times as neces- 
sary to test varying assumptions by changing 
input values. $99.95. 

Contact: Personal Software Inc., 1330 
Bordeaux Drive, Sunnyvale, CA 94086 (408) 
745-7841 . 


DATA MANAGEMENT SYSTEM 

The CC Data Management System stores 
and retrieves information and lends itself to 
"row and column" information. Files are 
easily created with varying types of fields 
which may also be computed fields (add, 
subtract, multiply, divide, exponentiate). A 
scan feature allows searching for records that 
have a field over, below. or between a range 
of values. Update and addition of records is 
accomplished by prompts. Multi-diskette 
capability allows up to 85,000 characters per 
file. Sorting is permitted on up to 10 fields as 
keys. Will print reports, mailing labels, etc. 
$99.95. 

Contact: Personal Software Inc., 1330 Bor- 
deaux Drive, Sunnyvale, CA 94086 (408) 
745-7841 . 


MULTIFIELD INFORMATION 
SYSTEM/UTILITIES DISKS 

This data-base system is entirely menu 
driven. Includes user defined defaults, user 
defined restraints on fields, fast search and 
sort capabilities, easy editing features. Also 
permits combining a data file with a letter or 
document to allow creation of "personalized" 
letters. Requires an Apple II with 32 or 48K 
with Applesoft ROM and at least one disk 
drive. Compatible with DOS 3.3 Includes 
diskette and maqual. $79.95 

The MFI utility diskette extends the capa- 
bilities of the MFI described above. Allows 
you to recover accidentally deleted files, sort 
files that are too massive to load into mem- 
ory, read diskette catalogs in an MFI file, per- 
form user-defined statistical functions on MFI 
files, search and replace MFI files, and do for- 
mula calculations on numeric fields within 
an MFI file. $29,95. 

BROWN PACK 1 is a utility package for use 
with Applesoft BASIC in ROM. These rou- 
tines include severaLmachine-language pro- 
grams which give ytfur BASIC programs such 
things as PRINT USING capabilities, super- 
fast machine language sorting (1000 string 
items and a numeric array in 5 seconds), 
automatic diskette menu, packing & unpack- 
ing of numbers, H l-RES shape utility pro- 
grams, and much more. Fully compatible 
with DOS 3.3, includes eleven utility routines 
on diskette, instruction manual and quick- 
reference chart. $39.95. 

Contact: The Computer Emporium, 3711 
Douglas, Des Moines, IA 50310 (515) 
279-8861. 


PAYROLL PACKAGE 

The PAKRE Payroll Package consists of five 
integrated programs: Create/Update 

Employee File; Enter/Write Checks; Examine 
Payroll Information; Examine Payroll Checks, 
and Print Tax Forms. It will store employment 
records for approximately 70 employees and 
payroll information for approximately 935 
checks per year (weekly payroll for 18 cur- 
rent employees) when used with DOS 3.2. 
compatibility with DOS 3.3 allows a still 
larger capacity. Permits entry of previously 
paid payroll, prints several summary reports, 
and information for 941 -A and W-2 forms- 
$150. 


Contact: Computerized Service Station Sys- 
tems, 5230 Clark Avenue, Suite 12, Lake- 
wood, California 90712 (213) 866-2581. 


PAYROLL SYSTEM 

The LMA payroll system, which was field 
tested at small businesses in California, New 
York City, Indiana and Florida, comes in two 
configurations- single and dual disk drive, 
and effectively performs full payroll func- 
tions for up to 45 and 150 employees, re- 
spectively. Features user-changeable tax 
rates, complete source listings in BASIC, fully 
documented file layouts for customization 
and a menu-driven control system. Handles 
payrolls in which employees have different 
frequencies of pay, multiple-states and com- 
plex city taxes, full personnel records, time 
card entries with overtime, 941 A Federal list- 
ings, W-2 forms, paychecks and paylistings, 
and summary reports. Requires an Apple II 
Plus. $349.00. 


Contact: Your local computer store- or- 
Lenz, Masterson & Associates, Inc., 684 Had- 
don Avenue, Collingswood, New Jersey 
08108 (609) 854-1333. 


COMPUTERIZED 
JOB CONTROL SYSTEM 

This system offers job costing and reporting 
to provide management with reliable mea- 
sures of productivity. Furnishes instant job 
status checks for determining exact work-in- 
progress figures. Combines information on 
job orders, estimates, labor hours, material 
costs and service costs to produce several 
valuable reports. Profit/loss values and vari- 
ances are given to allow fine-tuning. Can be 
customized for individual businesses ^_an<T 
allows for as many as 400 jobs in progress. In- 
cludes users manual and tutorial program. 
JCS is written in PASCAL and requires a 48K 
Apple II with three disk drives and a 132 col- 
umn printer. $750.00 


Contact: High Technology, Inc., 8001 N. 
Classen Blvd., P.O. Box 14665, Oklahoma 
City, OK 73113 (405) 840-9900. 


PRACTICAL BASIC PROGRAMS 

An entire collection of the 40 programs 
featured in the book, PRACTICAL BASIC 
PROGRAMS. Available on diskette for the 
Apple II computer, the programs are taken 
from common applications in four general 
categories: Business, Statistics, Mathematics, 
and Miscellaneous. They deal with such sub- 
jects as decision analysis, checkbook recon- 
ciliation, statistical techniques, and Federal 
Tax form preparation. A book is included 
which presents each program with a descrip- 
tion, sample run, practical problems and a 
BASIC source listing. Requires a 32K Apple II 
with one disk drive. $40.00 


Contact: High Technology, Inc., 8001 N. 
Classen Blvd., P.O. Box 14665, Oklahoma 
City, OK 73113 (405) 840-9900. 


Miscellaneous 


DIRECTORY OF 
APPLE SOFTWARE 

Included in this volume are more than 800 
Apple programs and many peripherals col- 
lected from over 100 vendors. There are 364 
pages. Each listing includes program title, 
publisher, memory requirements, program 
description and price. Language and hard- 
ware requirements are often included as 
well. Also included are a summary of Apple 
control and editing characters and disk com- 
mands and a glossary of computer terms. List- 
ings are arranged alphabetically- an index 
lists by category. Skarbeks Software Direc- 
tory, 364 pp; $1 1 .95. 

Contact: Skarbeks Software Directory, 

11990 Doresett Road, St. Louis, MO 63043 
(314) 567-3292. 


HEAD CLEANING DISKETTES 

During normal usage of your disk drive 
particles of dirt, dust or oxide build up on the 
read/write head(s). This can cause lost data, 
I/O errors and even destroy a diskette. You 
can either take your drive apart and clean it 
by hand (which may void warrantee) or do it 
the easy way. 

This kit includes a bottle of cleaning solu- 
tion and a head cleaning diskette to keep 
your drive heads contaminant-free. Saturate 
the disk with solution, insert in drive and turn 
it on for 30 seconds. 

Contact: Chuck Hastings, Data Recording 
Products Division/3M, 223-5N 3M Center, 
St. Paul, Minnesota 55144. 
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UNTIL TODAY THERE WERE MORE THAN 20 DATA BASE MANAGERS FOR THE APPLE II. 

NOW THERE’S ONLY ONE! 

DB MASTER 



THE APPLE DATA BASE MANAGER YOU’VE BEEN WAITING FOR! 

If you want an easy-to-use, flexible, and versatile data base manager, you have a choice of one. DB MASTER from Stoneware 
Microcomputer Products - soon to become the standard by which all others will be judged. 


But don’t just take our word for it. Compare the many advanced features of DB MASTER with the data base manager you’re 
now using. Or for that matter, compare it with any data base manager on the market. No one will even come close. 


DB OTHER 

FEATURES MASTER DBMS 


FILING SYSTEM: 

Maximum search time to find any UNDER 

record by its primary key 3 SECS. 

True ISAM file system with multi-field 

primary keys YES 

Multiple secondary keys for rapid 

access (5-7 seconds) to records 

by any field YES 

Primary & Secondary keys maintained 
automatically— no need to 
rebuild keys after adding 

records YES 

Maximum record size (bytes) 1020 

Maximum number of fields/record . . 100 

Handles files with more than one 

diskette of data YES 

Custom disk operating system (DOS) 
for faster data retrieval and 

program chaining YES 

User-designed screen formats YES 

Up to 9 screen “pages" per record . . . YES 

Ten field types, including dollar/cents, 
phone & social security number, 

date, etc YES 

Automatic data compaction for 

increased disk storage capacity. YES 

Wild card, partial string, range and 

Boolean search capabilities . . . YES 

Dynamic prompting (tm) - lists all 

available functions on screen- 
no need for quick reference card. YES 

Password file protection YES 

Four function calculator mode YES 

Daily update lists for printout of all 
records added/edited on any day 
or range of dates YES 

REPORT GENERATOR: 

Send reports to screen or printer YES 

Sort on up to 6 fields at a time YES 

Column subtotals and totals YES 


Subtotal and page breaks YES 

Up to 24 computed fields per report . YES 

Up to 9 lines of column titles YES 

Up to 9 lines for each record YES 

Maximum number of fields per report 100 
Code fields - store short codes, print 

long descriptions YES 

Comment lines and footnotes YES 

Comment fields for printing labels or 

headers within each record . . . YES 
Summary only reports YES 


Have a more complex application? DB MASTER can be 
used to emulate the hierarchical data base manager s used 
with larger computer systems! 


A typical Hierarchical File Structure: 



(Learn more about emulating a hierarchical data base 
in our 140 page user’s manual.) 

Coming soon: 

DB MASTER UTILITY PAK #1: Add, drop or change fields 
in existing files without re-entering data! 
Interchange DB MASTER files with VisiCalc* and 
other programs! 

DB MASTER FOR HARD DISK SYSTEMS 
DB MASTER FOR THE APPLE III 



^ 50 Belvedere Street, San Rafael, CA 94901 (415)454-6500 J 


Apple, Apple II & Apple III are trademarks of Apple Computer, Inc. VisiCalc is a trademark of Personal Software, Inc. 
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INTERNATIONAL 
APPLE CORE 


T M 


APPLICATION FOR MEMBERSHIP 


Name of Organization . 

Mailing Address 

Street: _________________________________ __________ 

City: State: Zip: 

Country: . . 

(If the above is a post office box, please supply a street address below where parcels may be sent.) 


OFFICERS OR OFFICIALS 


NAME 


PHONE (area code & number) 


President: 

Treasurer: 


Editor: 


Other: 


(Please check above the name of the IAC contact person). 
For Clubs: 

Terms Expire: _____________ 


Number of Members: 


Make check or money order payable in U.S. dollars to 
"international Apple Core". 

Remittance enclosed: $ _ . ■ — 


(Return application and remittance to the International Apple Core, P.O. Box 976, Daly City, California 94017, USA.) 
Check appropriate categories below: 


FULL MEMBERSHIP is available only to Apple User's groups. A $50.00 membership fee must accompany this 
form. Please indicate the time and place of your regular meetings: 


ASSOCIATE MEMBERSHIP applicants must provide evidence that they are nonprofit institutions. There is no 
membership fee. 

SPONSORS: Please indicate the name, position, and telephone number of the person in your organization res- 

ponsible for liaison with the IAC. The Sponsoring Membership fee is $200.00. 

Please add 15% to your fees if your organization is overseas and you would like all material sent International Air 
Mail. 


P. O BOX 976, DALY CITY, CALIFORNIA 94017 USA 

"APPLE" is the registered trademark of Apple Computer, Inc. 

INTERNATI ONAL APPLE CORE is licensed by Apple Computer, Inc. to use certain of the latter's trademarks. 
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The Text Solution for APPLE II® 

Now APPLE II® Owners Can Solve Text Problems 
With VIDEOTERM 80 Column by 24 Line Video Display 
Utilizing 7X9 Dot Character Matrix 

Perhaps the most annoying shortcoming of the Apple II® is its limitation of displaying only 40 columns by 24 lines of 
text, all in uppercase. At last, Apple II® owners have a reliable, trouble-free answer to their text display problem. 
VIDEOTERM generates a full 80 columns by 24 lines of text, in upper and lower case. Twice the number of characters as 
the standard Apple II® display. And by utilizing a 7 by 9 character matrix, lower case letters have true descenders. But 
this is only the start. 


VIDEOTERM, MANUAL, 
SWITCHPLATE 



VIDEOTERM 


! " HU '()*+,-. / 
B 1 2 3 4 5 6 7 8 9 : ; < * > ? 
t A B C D E F G H I J K L M N 0 
F 0 R S T U V U X V Z t \ ] A _ 
' e b c d e f 3 h i j k 1 m n o 
pqrstuvuxyzf ' } ' I 


7X12 MATRIX 
18X80 OPTIONAL 


! ■ ## n / 

# 1 2 3 4 5 6 7 8 9 : I < = >? 
tABCDEFGH I JKLHNO 
P 0 R S T U V U X Y Z [ \ ] t . 
•abcdefghijlclino 
pqrstpvwxyzf ! }"f 


Advanced 

Hardware 

Design 


Available 

Options 


5ICs VIDEOTERM lists BASIC programs, both Integer and Applesoft, using the entire 80 
columns. Without splitting keywords. Full editing capabilities are offered using the 
ESCape key sequences for cursor movement. With provision for stop/start text 
scrolling utilizing the standard Control-S entry. And simultaneous on-screen display 
of text being printed. 

cal Installation of VIDEOTERM in slot 3 provides Pascal immediate control of the 
display since Pascal recognizes the board as a standard video display terminal and 
treats it as such. No changes are needed to Pascal’s MISC.INFO or GOTOXY files, 
although customization directions are provided. All cursor control characters are 
identical to standard Pascal defaults. 

er The new Microsoft Softcard* is supported. So is the popular D. C. Hayes Micro- 

irds modem II’ , utilizing customized PROM firmware available from VIDEX. The power- 

ful EasyWriter’ Professional Word Processing System and other word processors 
are now compatible with VIDEOTERM. Or use the Mountain Hardware ROMWrit er" 
(or other PROM programmer) to generate your own custom character sets. Natural- 
ly, VIDEOTERM conforms to all Apple OEM guidelines, assurance that you will have 
no conflicts with current or future Apple II" expansion boards. 

VIDEOTERM’s on-board asynchronous crystal clock ensures flicker-free character display. 
Only the size of the Pascal Language card, VIDEOTERM utilizes CMOS and low power con- 
sumption ICs, ensuring cool, reliable operation. All ICs are fully socketed for easy 
maintenance. Add to that 2K of on-board RAM, 50 or 60 Hz operation, and provision of power 
and input connectors for a light pen. Problems are designed out, not in. 

The entire display may be altered to inverse video, displaying black characters on a white 
field. PROMs containing alternate character sets and graphic symbols are available from 
Videx. A switchplate option allows you to use the same video monitor for either the 
VIDEOTERM or the standard Apple II’ display, instantly changing displays by flipping a 
single toggle switch. The switchplate assembly inserts into one of the rear cut-outs in the 
Apple IP case so that the toggle switch is readily accessible. And the Videx KEYBOARD 
ENHANCER can be installed, allowing upper and lower case character entry directly from 
your Apple IP keyboard. 

IK of on-board ROM firmware controls all operation of the VIDEOTERM. No machine 
language patches are needed for normal VIDEOTERM use. 


Firmware Version 2.0 


Characters 7x9 matrix 
Options 7x12 matrix option; 

Alternate user definable 
character set option; 
Inverse video option. 


Display 24 x 80 (full descenders) 

18 x 80 (7 x 12 matrix with full descenders) 


Want to know more? Contact your local Apple dealer today for a demonstration. VIDEOTERM is available 
through your local dealer or direct from Videx in Corvallis, Oregon. Or send for the VIDEOTERM Owners 
Reference Manual and deduct the amount if you decide to purchase. Upgrade your Apple IP to full terminal 
capabilities for half the cost of a terminal. VIDEOTERM. At last. 


7X9 MATRIX 
24X80 STANDARD 


Apple II ‘ is a trademark of Apple Computer Inc. 

ROMWriter* is a trademark of Mountain Hardware Inc. 
Micromodem II 1 * is a trademark of D. C. Hayes Associates Inc. 
Softcard’ is a trademark of Microsoft 

EasyWriter is a trademark of Information Unlimited Software Inc. 


PRICE: • VIDEOTERM includes manual $345 

• SWITCHPLATE $ 19 

• MANUAL refund with purchase .... $ 19 

• 7x12 CHARACTER SET $ 39 

• MICROMODEM FIRMWARE $ 25 


APPLE II® OWNERS! 

introducing the 

KEYBOARD & DISPLAY 

ENHANCER 

■ PUT THE SHIFT AND SHIFT LOCK BACK WHERE IT BELONGS 
■ SEE REAL UPPER AND lower CASE ON THE SCREEN 
■ ACCESS ALL YOUR KEYBOARD ASCII CHARACTERS 


Videx has the perfect companion for your 
word processor software: the KEYBOARD 
AND DISPLAY ENHANCER Install the 
enhancer in your APPLE II and be typing in 
lower case just like a typewriter. If you want an 
upper case character, use the SHIFT key or the 
CTRL key for shift lock. Not only that, but you 
see upper and lower case on the screen as you 
type. Perfectly compatible with Apple Writer 
and other word processors like, for example. 
Super-Text. 

If you want to program in BASIC, just put it 
back into the alpha lock mode: and you have 
the original keyboard back with a few im- 


provements. Now you can enter those elusive 9 
characters directly from the keyboard, or re- 
quire the Control key to be pressed with the 
RESET to prevent accidental resets. 

KEYBOARD AND DISPLAY 
ENHANCER is recommended for use with all 
revisions of the APPLE II. It includes 6 ICs, and 
EPROM and dip-switches mounted on a PC 
board, and a jumper cable. Easy installation, 
meaning no soldering or cutting traces. Alter- 
nate default modes are dip-switch selectable. 
You can even remap the keyboard, selecting an 
alternate character set, for custom applications. 



PRICE • KDE-700 (REV. 7 or greater) $129. 

• KDE-000 (REV. 6 or less) $129. 

Apple II® is a trademark of Apple Computer, Inc. 



videx mmm 

897 N.W. Grant Avenue 
Corvallis, Oregon 97330 
Phone (503) 758-0521 
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SORTING IN BASIC 

by Art Mack 
Cider Press 


One of the things that every pro- 
grammer has to do eventually is to 
sort some data. Described here is 
one way to write a sort routine in 
BASIC as follows. 

Starting with the first element of 
an array, (the sort shown here is for 
an array of real numbers, but ap- 
plies to Integer and String arrays as 
well) the array is searched to find 
the smallest element, (assuming we 
want to sort into ascending order) 
and that element is placed in posi- 
tion 1 of the array. Next, we start 
with element number 2 and find the 
smallest element left in the array 
and place it in position number 2. 


We continue this way with posi- 
tions 3, 4, 5, etc., until we reach the 
last element in the array. Thus 
when we are finished, the smallest 
element in the array is in position 1, 
the second smallest in position 2, 
and so on. 

The following example shows 
how to sort an array named "D" of 
dimension "N" (assume that all the 
elements of "D" have already been 
put into the array). 

800 FOR I = 1 TO N-1: REM LOOP 
FOR N-1 TIMES, THE LAST 
ELEMENT WILL AUTOMATI- 
CALLY BE IN THE RIGHT 
PLACE. 


801 FOR J = I + 1 TO N: REM LOOP 
AND CHECK THE I'TH ELE- 
MENT WITH ALL REMAINING 
ELEMENTS IN THE ARRAY. 


802 IF D(l) < D(J) THEN 806: REM 
IF THE I'TH ELEMENT IS THE 
SMALLEST TRY THE NEXT RE- 
MAINING ELEMENT. 


803 A = D(l): REM OTHERWISE 
SWITCH THE ELEMENTS 
(LINES 803-805). 

804 D(l) = D(J) 

805 D(J) = A 

806 NEXT J: REM CONTINUE FOR 
THE NEXT J 

807 NEXT I: REM CONTINUE FOR 
THE NEXT I 


Note that the "inner" loop (lines 
801-806) is executed from N-1 to 1 
times depending on the value of I, 
and that the "outer" loop (lines 
800-807) is executed N-1 times. 
Also note that the routine can easily 
be changed to sort the array into 
descending order (highest to lowest 
values) simply by changing line 802 
to: 


802 IF D(l) > D(J) THEN 806 


IAC Sponsoring Members (continued from page 3) 


Apple Computer, Inc. 

10260 Bandley Drive 
Cupertino, CA 95014 
(408) 996-1010 

Axiom Corp. 

5932 San Fernando Rd. 
Glendale, CA 91202 
(213) 245-9244 

Bell & Howell, Inc. 

7100 McCormick Road 
Chicago, IL 60645 
(312) 262-1600 

Compuserve-Micronet 
5000 Arlington Centre Blvd. 
Columbus, OH 43220 
(614) 457-8600 

Custom Computering System, 
Inc. 

122 2nd Ave. N. 

Saskatoon, Sask., 

Canada S7K 2B2 

dilithium Press 
P.O. Box 606 
Beaverton, OR 97075 
(503) 646-2713 


Epson America, Inc. 

23844 Hawthorne Blvd. 
Torrace, CA 90505 
(213) 378-2220 

Hayes Microcomputer 
Products 

5835 Peachtree Corners East 
Norcorss, GA 30092 
(404) 449-8791 

Interactive Structures, Inc. 
P.O. Box 404 
Bala Cynwyd, PA 1 9004 
(215) 667-1713 

Malibu Electronics Corp. 
2301 Townsgate Road 
Westlake Village, CA 91361 
(805) 496-1990 

Mountain Computer, Inc. 
300 Harvey West Blvd. 

Santa Cruz, CA 95060 

Nestar Systems, Inc. 

430 Sherman Ave. 

Palo Alto, CA 94306 
(415) 327-0125 


Okidata Corporation 
111 Gaither Drive 
Mt. Laurel, NJ 08054 
(609) 235-2600 


Peachtree Software 
3 Corporate Square, Suite 700 
Atlanta, GA 30329 
(404) 325-8533 


Peripherals Unlimited 
Craig Vaughan 
2105 Sheriff Ct. 

Vienna, VA 22180 

Programma International, 
Inc. 

2908 N. Naomi St. 
Burbank, CA 91504 
(213) 954-0240 


Siro-tech Software Products 
6 Main St. 

Ogdenstring, NY 13669 
(315) 393-5151 

Source Telecomputing Corp. 
1616 Anderson Road 
McLean, VA 22102 
(703) 821-6660 

Syntauri Ltd. 

3506 Waverly St. 

Palo Alto, CA 94306 
(415) 494-1017 

Verbatim Corp. 

323 Soquel Way 
Sunnyvale, VA 94086 
(408) 245-4400 

Xerox Retail Markets Div. 
L-140, 24500 Industrial Blvd. 
Hayward, CA 94545 
(415) 786-5205 


As an IAC sponsor, your name could be listed here in 
each issue of the Apple Orchard. 
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WE HAVE EVERYTHING YOU NEED FOR YOUR APPLE COMPUTER 


APPLE CLOCK 

Real-time and date information. Interrupts 
permit. Foreground/Background operation of 
two programs simultaneously. Battery 
back-up. Crystal-controlled for .001% 
accuracy. Onboard ROM for easy access from 
BASICs. Supports PASCAL. Time from one 
millisecond to one year. ^279 00 

ROMWRITER 

Program your own EPROMs. Create your own 
firmware. Programs 2K, 2716 5V EPROMs. 
Disk software package provides easy EPROM 
programming. EPROMs are verified after 
BURN. RUN your programs from on-board 
socket or install them on ROMPLUS. 



EXPANSION 

CHASSIS 


By popular demand! Eight more slots for your 
Apple. Attractive sturdy enclosure. Its own 
heavy duty power supply. Easy to use. 
Address cards in Expansion Chassis the 
same way as in your Apply. Only one additional 
command to specify in Apple or in Expansion 
Chassis. ***+. m ** 

$649.00 




MICROSOFT 

Z80 

SOFTCARD 


► Z80 CPU on Apple Card 

► CP/M 2.2 by Digital Research 

> Microsoft BASIC MBASIC 5.0 1 »« PIt mW 

> GBASIC 5.0 includes Apple 

Graphics 

» File transfer functions for reading C0B0L & FO RTRAN-80 
1 3 or 1 6 sector Apple diskettes now ,n STOCK! 

> Will use 80 x 24 cards & terminals . , _ 

► Can use Language Card for 56K $349.00 List ^ 299 


$175.00 


The Vista V300 Printer 


$129.95 


I tflHfl MUSIC 

mmm machine 9® 

|> >*WITH 9 VOICES! 

• NEW! Uses latest State of the Art LSI Technology. 

• Requires only one slot for 9 voices! 

• Uses three Ay3-8910’s to produce nine voices 

(Other competitive models have only 3 voices). 

• Includes conversion software. 

• Simulates three ALF Boards. 

• Plays music generated by the ALF Board. 

• APPLE™ II compatible. 


• 25 CPS printspeed 

• Static print impact 

• 136 printable columns 

• 1/120 inch min. char, spacing 

• 1/48 inch min. line spacing 

• 1000 msec, return time 

• 40 msec., line feed time 

• 381 mm (15") max. paper width 

• Multistrike fabric black ribbon 

• 96 print characters 

• Standard 96 character wheel 

• Standard parallel or RS232-C 

compatible 

• 115V±10%, 50/60 Hz, 70 W 

power requirements 
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ONA 

PLUG-IN CARD. 

Microsoft’s new RAMCard simply plugs into 
your Apple II, 1 and adds 16K bytes of depen- 
dable, buffered read/write storage. 

Until now, the only way to get this much 
memory was to have an Apple Language 
Card installed. VisiCalc'" and other Apple 
software packages can take advantage of 
RAMCard. Even with the RAMCard in place, 
you can still access your ROM BASIC and 
monitor routines. 


AVAILABLE SOON! 

VISTA 80-TRACK 
APPLE DISK DRIVE 


• Can boot & run standard Apple disks. 

• Can boot & run 80-track diskettes for over 
300 Kbytes of storage. 

• Based on MPI B91 Drive. 

• Uses Apple Disk Interface. 

• Uses Apple DOS 3.2 or 3.3 (3.3 required for 

80-track operation). ^ ^ ^ 

List $499.00 S459i( 


$ 1895 00 

^"“special - 4" 

IVisi-Calc 

‘ ^The Professional Planning 
r Tool used by Thousands of 
Management Personnel across 
the Country. 


-jgj* 

HV* CALIFORNIA 
i MICROPRODUCTS 
KEYPAD 

: • Has and “space” keys for 

: VisiCalc™ compatibility! 

! • One version for new and old Apple 
| keyboards. 

: • Easily installed. No soldering:,. "' 
j • Metal case, heavy duty. /'4|v 
! • Does not req I/O slot. 


$1 74.95 


3 (j.d requirea tor 

$459.00 $1 25.00* 


AVAILABLE SOON 

CRYPTEXT for 

Apple II data encryption 
for disk files. a 



‘SUBJECT TO QUANTITY ON HAND 



BIT 3« 


■$349.95 


[T^ 


topple// 


w The Most Powerful 
’ Professional Computer 
In Its Class! 


80 BY 24 VIDEO BOARD 

- Fully compatible w/Apple II 

- Has video input from Apple II '' 

- Can switch between Apple video and 80 by 24 video under 

software control 

- Fully follows Pascal protocols, no system reconfiguration needed 

- Comes with 7x9 character generator full upper/lowercase 

- Light pen input supported in firmware (light pen not included) 


iles $449| ^ 

NEW M & R 
ENTERPRISES 

“Apple Fan” cure your thermal 
problem in- an over-crowded 
machine designed to fit 
inside a case and operate 
noiselessly. 

List $54.95 


FEATURES: 


$3995.00 


► Built in RS232 interface, Silentype Interface, • 2 MHZ 6502A Surrounded by LSI for Instruction 


4 Channel A.D. 

• Calendar Clock with Battery Backup. 

• Memory Management for up to 128 Kbytes. 

• 80 Columns x 24 Lines Display. 

• Numeric Keypad. 


• Apple III Option A: Apple II 96K, 

Information Analyst Package, 
12” B/W Monitor $3995.00 

• Apple III Option B: Same as 

Option A Plus: Disk II for 
Apple III $4395.00 


Set Enhancement. 

• Up to 560 x 190 Graphics Mode. 

• 1 6 Colors or True Grey Scale in 280 x 1 92 Mode. 

• 3 Video Outputs; B/W NTSC, Color NTSC, RGB 

Video. 


• Apple III Option C: Same as 
Option A Plus: Disk II for Apple III, 
Silentype Thermal Printer 

$4785.00 

• To substitute 1 28K Apple III for 

96K Apple III Add $450.00 



DISK II FLOPPY 
DISK SUBSYSTEM 

Disk II disk w/controller $569.00 

Disk II additional disk $450.00 

Includes powerful disk operating system, and 
adds high speed random access storage to your 
system. 


APPLE II PLUS 

Apple II + w/16K $1150.00 

Apple II + W/32K 1199.00 

Apple II 4- W/48K 1249.00 

Apple II Plus systems come with floating point 
Basic Card in ROM. Order with integer ROM 
Card or Language Card for multi-language 
operation. 

16K Upgrade Kit $44.95 

APPLE II 

Apple ll W/16K $1150.00 

Apple II W/32K. 1199.00 

Apple II w/48K. 1249.00 

Apple II systems come with integer BASIC in 
ROM. Order with Applesoft ROM Card or 
Language system for Multi-Language operation. 




SEND FOR OUR 1 981 CATALOG, ONLY $2.00, FREE WITH ANY ORDER 



COMPOTE!! 
ODUCTS 

— RETAIL STORES 
OPEN MON.-SAT. 


STORE #1: 1310 “B” E. Edinger, Santa Ana, CA 92705 Showrooms, Retail, Warehouse 
STORE #2: 674 El Camino Real, Tustin, CA 92660 Specializing in Systems 
Coming Soon - STORE #3: 542 W. Trimble Road, San Jose, CA 95131 • (408) 946-7010 


FOR INTERNATIONAL ORDERS 

1 31 0 E. Edinger (714) 953-0604 
Santa Ana, CA 92705 TWX: 910-595-1 565 


P.O. Box 17329 Irvine, Calif. 92713 
Direct Order Lines: (714) 558-8813 
(800) 854-8230 or (800) 854-8241 
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Fetch 

Naval Air Facility Box 13 
FPO Seattle, WA 98767 
Fox Valley Crab Apples 
Univ. of Wisconsin-Oshkosh 
Oshkosh, Wl 54901 

G. F. Apple S.A.U.C.E. 

25000 B Southe Columbia Rd. 
Grand Forks, ND 58201 
Gerold V. Van Der Vlugt MD 
Department of State 
Washington, D.C. 20520 
Gila Valley Apple 

Growers Assn. 

Box 1077 

Thatcher, AZ 85552 
Gauge 
16-B S 
Oceanview 

Finegayah, GUAM 96912 

H. A.U.S. 

P.O. Box 30262 
Honolulu, HI 96820 
H.O.T. Apple-Pie 
2321 Lee St. 

Waco, TX 76711 
HISD/Basic Curriculum Dept. 
3830 Richmond Ave. 

Houston, TX 77027 

Jakarta International School 
P.O. Box 791 KBT 
Jakarta, Indonesia 
Little Rock Apple Addicts 
P.O. Box 55215 
Hillcrest Sta. 

Little Rock, AR 72205 
Monmouth Apple Corps 
P.O. Box 333 

West Long Beach, NJ 07764 
Mountain View Apple 
Users Group 
1923 Viola Dr. 

Sierra Vista, AZ 85635 

NovApple 
8108 Adair Ln. 

Springfield, VA 22151 

NW Suburban Apple Users 
1 300 S. Elmhurst Rd. 

Mt. Prospect, IL 60056 
PenCom 

J 303 Waverly Dr. 

Frederick, MD 21701 


Peninsula Apple Core 
1419 Todds Lane 
Hampton, VA 23666 
Placer County 
1228 High St. 

Auburn, CA 95603 
Plane Apple Club 
Box 12013 
Wichita, KS 67277 
Ridgecrest Apple Group 
Star Route Box 109E 
Inyokern, CA 93527 

S Australian Apple Users Club 
c/o Computerland 
125 Pirie St. 

Adelaide-South Australia 5000 
SEA 

3258 Powers Ferry Rd. 

Marietta, GA 30067 

Short Hills Apple Pits 
29 Clive Hills Rd. 

Short Hills, NJ 07078 
Slacc 

2445 Cleveland 
Granite City, IL 62040 

SMAUG 

10201 Fontainebleau Blvd. 

#206 

Miami, FL 33172 
South Bay Apples Computer 
Club 

P.O. Box 5201 
Torrance, CA 90510 

South Colorado Apple Users 

1635 S. Prairie 

Pueblo, CO 81005 

Space Coast Apple User Group 

P.O. Box 4332 

Patrick AFB, FL 32925 

Tidewater Apple Organization 
1021 Tivoli Crescent, Apt. 102 
Virginai Beach, VA 23456 
WAUG 
P.O. Box 19 

Wondai, Old Australia 4606 

Washington Apple Pi 
P.O. Box 34511 
Washington, D.C. 20034 
Wisconsin Apple Users 
P.O. Box 11463 
Milwaukee, Wl 53211 


IAC MEMBER CLUB ADDITIONS 

Abilene Apple Club 
925 N. Judge Ely Blvd. 

Abilene, TX 79601 
Aerospace Apple User Group 
28901 Lotusgarden Dr. 

Canyon County, CA 91351 
Apple Pi of Brevard 
P.O. Box 327 
Melbourne, FL 32901 
Apple Polishers 
1112 Glacial Dr. 

Minot, ND 58701 
Apple Tech 
412 West Third 
Mishawaka, IN 46544 
Apple Users-Nu 
Northwestern University 
Evanston, IL 60201 
Apple Users Group Sweden 
Norra Vallvagen 24 
Kristianstad 291 32 Sweden 
Apple Canada 
P.O. Box 696, Station B 
Toronto, Ont. Canada M2K 2P9 
Apple Boston 
3 Center Plaza 
Boston, MA 02108 

Atlanta Society of Professional 
Apple Users Group 
6600 Power Ferry Rd. 

Suite 220 

Atlanta, GA 30339 

Blossum Valley Apple Club 
5821 Cottle Rd. 

San Jose, CA 95123 
British Apple Systems User 
Group 

P.O. Box 174 

Watford, England WD2 6NF 
Catalunya Apple Club 
Fabra y Puig 389 E/4 
Barcelona-31 Spain 
Caug 

2805 Chestnut Ct. 

Columbus, IN 47201 
CIA (Central Illinois Apple) 

1023 W. Hudson 
Peoria, IL 61604 
Emu 

Box 3143 
GPO 

Sydney 2001 New Australia 

CONTRIBUTING PUBLICATIONS 
AND CLUBS 

FOR THIS ISSUE OF APPLE ORCHARD 
Apple-Dillo- River City Apple Corps 
2015 Ford St., Austin, TX 78704 
Apple Slice 

P.O. Box 536, Bountiful, UT 84010 

Call -A.P.P.L.E.-Apple Pugetsound 

Program Library Exchange 

304 Main Ave. S., Ste. 300, Renton, WA 98055 

Cider Press-S. F. Apple Core 

1515 Sloat Blvd., Ste. 2-San Francisco, CA 94132 

Contact — Apple Computer, Inc. 

10260 Bandley Drive, Cupertino, CA 95014 


Dallas Apple Corps 

P.O. Box 5537, Richardson, TX 75080 

Green Apple Bits- No. Central Iowa Apple Users Group 

4417-129 No. Zircon Lane, Cedar Falls, IA 50613 

Harvest- Northwestern Illinois Apple Users Group 

1300 S. Elmhurst Rd., Mt. Prospect, IL 60056 

Mini' App'les 

13516 Grand Ave. S., Burnsville, MN 55337 

Original Apple Corps 
12804 Magnolia, Chino, CA 91710 
Tulsa Computer Society-Apple Users 
P.O. Box 1133, Tulsa, OK 74101 

Washington Apple Pi 

P.O. Box 34511, Washington, D.C. 20034 



LETTER PERFECT 

WORD PROCESSOR Apple II, and Apple II Plus’", DOS 3.3., 40/80 Columns 


MAIN - MENU 

CURRENT DRIVE 
NUMRER #1 
SLOT #6 

-*> Editor 

Change Drive #, Slot 

Load 

Save 

Merge 

Screen Format 

Printer 

Lock 

Unlock 

Delete 

Format Disk 
Reconfigure 
Data Base Merge 
Quit 

Press or -►to move cursor 
Press (Return) for selection 


40 Column 
80 Super-R-Term 
Smarterm 
Videx 
Bit 3 




DEALER 

INQUIRES 

INVITED 


EASY TO USE : LETTER PERFECT is a character orientated word processor 
with the user in mind. Fast action (machine language), menu driven, single load 
program. 34K Free. Requires Paymar LCA, one disk drive, and 32K memory. One 
time configuration for your system, printer type etc., can be reconfigured at any 
time. Right hand justification. Supports incremental spacing, underlining, boldface 
with NEC or Qume/Diablo. Will use any of the special print characters of your speci- 
fic printer. Key codes make mnemonic sense for easy use. All text packed during 
saving for greater disk storage capacity. Full typewritten page of buffer space for 
easy manuscript editing. Menu driven printer selection, or use your own special 
print driver. Works with DOS 3.3. “Screen format allows you to preview printed 
text”. 

All this and more, for $149.95. 

Features: 


FULL CURSOR CONTROL 

Insert a Line 

Home Cursor 

Headers and Footers 

Scroll Page Forward 

Shift Lock and Release 

Scroll Page Backward 

Global and Local Search 

Pause Scroll 

and Replacement 

Scroll Line at Time 

Underlining and Boldface 

Scrolling Speed Control 

Automatic Centering 

Move Cursor Down 

Horizontal Tabs 

Beginning of Text 

Special Print Characters 
Split Catalog 

MULTIFUNCTION FORMAT LINE 

Page Numbering up to 65535 

Standard Formats a Default 

Prints up to 256 Copies of 

Formats Easily Changed 

Single Text File 

Right Justification 
Left Margin 

Non Printing Text Commenting 

Page Width 

FUNCTIONS 

Line Spacing 

Delete All Text 

Lines Per Page 

Delete All After Cursor 

Font Changing 

Delete All Before Cursor 

Set Page# 

Delete Next Block 

Top Margin 

Delete Buffer 

Bottom Margin 

Move Next Block to Buffer 
Add Next Block to Buffer 

Delete a Character 

Insert Block From Buffer 

Insert a Character 
Delete a Line 

Merge Text Files 

SEND FOR FREE CONTROL PAGE 

* Data Base Merge 

NEC 

* Screen Format 

Qume/Diablo 

* Font types changed in body ol text 

CENT 737 

* With RH justification 

Epson 

* Multiple Print Drivers 

Paper Tiger 
Write Your Own 


Printer — Use any type: Epson NEC, Qume, CENT 737. All parallel, serial printer types. 



m 


COMPUTER BASED SOFTWARE 


LJK ENTERPRISES INC. 
P.O. Box 10827 
St. Louis, MO 63129 
(314) 846-6124 


DEALER 

INQUIRES 

INVITED 


'Apple T.M. of Apple Computer Inc., — *T.M. M&R Enterprises 
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I.A.C. MEMBERSHIP INFORMATION 


FULL MEMBERS 


The International Apple Core is a 
non-profit organization composed 
of Apple Computer User Groups 
throughout the world. The IAC was 
formed to disseminate all types of 
information from Apple clubs and 
users, computer related industry, 
and Apple Computer, Inc. We dis- 
tribute public domain software, ap- 
plication notes, general Apple infor- 
mation, and product information. 
Unaffiliated with Apple Computer, 
Inc. or any other manufacturer, we 
provide an objective input/output 
device for questions and problems 
on any subject dealing with Apple 
computers. 

Apple user clubs have need for 
timely access to new developments 
in the Apple Computer world. This 
is the principal reason for the lAC's 
organization today. Our publica- 
tion, the "Apple Orchard", provides 
the latest and best information 
available on a quarterly basis. Our 
member clubs receive technical in- 
formation in the form of Apnotes. 
These cover Apple Computers, re- 
lated equipment, and related pro- 
gramming from other manufactur- 
ers. We provide a newsletter 
exchange coordinator to facilitate 
newsletter swaps between clubs. 
The IAC also collects and distributes 
public domain software. Depend- 
ing on the software's availability, 
new diskettes are sent out as fre- 
quently as once a month. 

The International Apple Core pro- 
vides many services beyond infor- 
mation dissemination. We support 
the special interest user groups 
which our member clubs cannot: 
education, handicapped, medical, 


ham radio, and legal SIG's are ex- 
amples. The "Orchard" publishes a 
complete list of our member clubs 
so that interested users may easily 
get in touch. Our Standards Com- 
mittee works with manufacturers to 
define hardward and software stan- 
dards for Apple Computers. There 
is even a committee just to help 
new Apple clubs get started. 

As a Full Member, your club will 
be able to participate in the election 
of IAC Directors in your region. 
There are currently eleven Direc- 
tors world-wide. Directors provide 
one important link between mem- 
ber clubs and the IAC, and as your 
representatives they set the lAC's 
policies and guide its administra- 
tion. When schedules permit, the 
Directors and Officers are available 
to meet with clubs for personal in- 
put and exchange of ideas. 

Full Membership is open to all 
Apple Computer User Groups. Indi- 
viduals may participate in the IAC 
through our member clubs or as 
Sponsors. The combined initiation 
fee and annual dues for Full Mem- 
bers in 1981 will be $100.00 (US). 
To enroll, simply return a com- 
pleted membership application 
with your first year's dues. 


SPONSORS 

Manufacturers having business 
relating to Apple computers need 
timely access to information that 
the IAC distributes. In addition 
many will seek access to the IAC 
membership for business interests, 
either to promote a product or to 
conduct market research. 


To satisfy the needs of software 
and hardware manufacturers, the 
International Apple Core has 
created the Sponsoring Member- 
ship. This type of membership is tai- 
lored to meet commercial interests. 

As a Sponsor you receive: 


• All printed information sent to 
IAC member clubs at no cost. 
Other materials are provided at 
a nominal fee. 

• A subscription to 'The Apple 
Orchard," our publication. 

• Preferential placement of your 
advertising in the "Orchard". 

• Free listing in each issue of the 
"Orchard". 

• Up to date mailing lists of our 
membership upon request. 

• Application notes from Apple 
Computer and other users. The 
International Apple Core will 
distribute appropriate applica- 
tion notes on your products as 
well. 

• Voting membership on the 
Standards Committee. The 
Standards Committee will be 
setting hardware and software 
standards for Apple computers. 

• A forum for new product 
feedback. 

• The non-voting right to partici- 
pate in other IAC activities. 


The Sponsoring Membership is 
open to all corporations and indi- 
viduals that wish it. The annual 
membership fee for 1981 has been 
set at $200. To enroll, simply return 
a completed membership applica- 
tion with your first year's dues. 

(continued on page 73) 



S?WIG 1981 


APPLE ORCHARD 


PAGE 73 


I.A.C. MISCELLANY 

by Joe Budge, Secretary 


Several clubs have written in con- 
fusion as they had missed IAC mail- 
ings for six months. Upon checking, 

I find the materials were sent, but 
not received by the club. Invariably 
the club will have had internal 
problems. The IAC contact person, 
who receives our mailings has 
either moved or otherwise become 
indisposed to convey the mailings 
to his club. When this is discovered, 
there's a huge uproar and scram- 
bling to find or replace the missing 
mailings. To keep this to a mini- 
mum, the "Orchard" will begin list- 
ing materials that each club should 
have received. If your club missed 
some of these, start checking right 
away. Don't wait six months. If you 
act promplty, we will be happy to 
do our best to replace what you 
might have lost (within reason, of 
couse). Here is the first list, cover- 
ing all materials sent through 
2/10/8T: 

APNOTES: A complete set of Ap- 
notes. The last Apnote printing was 
December 6, 1980. Your club 

should have copies of all Apnotes 
listed in the index for that date. 
New clubs are given a complete set 
when they join. 


MINUTES: Minutes of all IAC 
meetings. These cover the First An- 
nual Meeting of the Membership on 
March 1 3, 1 980 and Board of Direc- 
tors Meetings for October 27, 1979, 
March 13, 1980, and May 19, 1980. 
Again, new clubs should have a 
complete set. 

SOFTWARE: Five official and IAC 
disks have been sent to clubs. For 
logistical reasons, we are unable to 
send new members back copies. 
Thus a club should have IAC soft- 
ware dating back only as far as that 
club's membership date on our 
books. Software was published in 
May, July, August, and December 
of 1980, and February, 1981. 

BULLETIN: We began publishing 
a monthly news bulletin on Decem- 
ber 1. Clubs should have received 
one per month subsequently. Im- 
portant information in the Bulletins 
is reprinted in the "Orchard," so we 
do not send out back issues. 

ORCHARD: Starting with this 
issue, all IAC clubs should receive 
one copy of each "Orchard." 

OTHER: Clubs in eligible regions 
should have received Director 
Nomination forms in December. 


Those regions eligible to nominate a 
director this year were Asia, S. 
America, and all U.S. regions. Only 
the Northern and Eastern U.S. re- 
gions nominated more than one di- 
rector, warranting an election. Bal- 
lots were mailed to those regions 
February 9. All clubs were sent a 
notice of the Annual Meeting on 
February 1 . 

The Associate membership was 
created to help educational, re- 
search, and charitable institutions 
that have an interest in Apple Com- 
puters but cannot join the IAC as 
full members for financial reasons. 
Associate members receive all the 
printed matter supplied free to the 
IAC member clubs. This material 
consists primarily of Apnotes and 
resource lists. This material does 
not include free software which the 
IAC sends to its Full members, nor 
does it include the "Orchard" which 
is available by subscription. If soft- 
ware and other additional IAC ser- 
vices are desired, the institution is 
encouraged to organize a user's 
group which may apply for Full 
membership. Associate members 
participate in IAC committees and 
activities. 

The Associate Membership is 
open to all non-profit institutions at 
no cost. Membership applications 
must be accompanied by evidence 
that the institution is non-profit. If 
the membership will be care of an 
individual, evidence must be pro- 
vided that the individual represents 
the entire institution to the IAC. 
Please submit whatever you feel is 
appropriate to demonstrate these 
requirements. Due to the diversity 
of institutions and countries, the 
IAC cannot set any fast rules. Asso- 
ciate Membership applications will 
be judged on their merits by the 
IAC President. 


IAC Membership Information (continued from page 72) 


ASSOCIATE MEMBERS 

Educators and researchers who 
use Apple computers have need for 
timely access to new developments 
in the Apple Computer world. Our 
publication, the Apple Orchard, pro- 
vides the latest and best information 
available on a quarterly basis. In ad- 


dition, the IAC publishes technical 
information in the form of Apnotes. 
These cover Apple Computers, re- 
lated equipment, and related pro- 
gramming from other manufac- 
turers. 

The International Apple Core pro- 
vides many services beyond infor- 


mation dissemination. We support 
the special interest user groups 
which our clubs cannot: education, 
handicapped, medical, ham radio, 
and legal SIG's are examples. Our 
Standards Committee works with 
manufacturers to define hardware 
and software standards. 
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convert all standard ASCII to nega- 
tive ASCII before going to the out- 
put routine. 


WHO WAS ASKING ABOUT 
ASCII? 


by Val J. Golding 


But First, a Bit About Bits 

Actually, a whole bunch of peo- 
ple. Understanding the Apple's 
ASCII video display and its relation- 
ship to the ASCII character set is of 
paramount importance to efficient 
programming and manipulating 
screen displays or modifying DOS 
file names, etc. 

To make the distinction between 
the ASCII character set and the 
screen display, keep in mind that 
the character set is the characters 
that you originally enter from the 
keyboard, i.e., INPUT, and the 
video display is the form in which 
you eventually see the characters, 
i.e., OUTPUT. 

The standard ASCII character set 
is composed of 128 characters, 
some of which perform control 
functions and are not displayed. 
The display set basically is also 128 
characters. However, there are 
three different display modes , and 
herein lies the area of confusion to 
many users. We will come back to 
the display set shortly, but first let's 
define the types of characters that 
make up the 128 character set, and 
also explain about the terms "posi- 
tive" and "negative" ASCII. 

Throughout this article we will 
use standard hexadecimal notation, 
i.e., the dollar sign [$] to express 
hexadecimal values, while decimal 
values will usually be shown in 
square brackets [ ] following the 
hex data. 

In the Apple, as in most other 
mini and microcomputer systems, it 
is quite common to deal with 
figures in multiples of 8 or 16, 
because the hexadecimal number 
system [Base 16] is an easy form of 
notating binary numbers [Base 2], 
which is the number system used 


by the 6502 microprocessor. This 
explains in part why we so often see 
figures like 256, 1024, 8192, 32768 
and 65536, as these are all exact 
multiples of 16. 

A hex byte is composed of eight 
binary bits, and the maximum value 
that may be expressed in one byte is 
$FF [255]. (Note this is a total of 256 
units, since the number of the first 
unit is zero.) If the value of a byte is 
greater than $7F [1 27], then it is said 
to be "negative", which is a way of 
expressing that the high order [most 
significant] bit is on. When the high 
order bit is present in an ASCII char- 
acter, then we say that that char- 
acter is negative ASCII. But we are 
getting ahead of ourselves. 

Apple handles ASCII a little differ- 
ently than most computers. Inter- 
nally, the monitor converts most 
standard ASCII characters to nega- 
tive ASCII, which it is set up to 
handle. Standard, or positive, 
ASCII, which is used by Applesoft 
and most other computers, uses 
onl^seven bits of each eight bit 
byte. Why? Because there are 128 
characters, with values from $00 [0] 
to $7F [127]. In many systems the 
eighth bit is used for other purposes 
(parity checks, etc.) beyond the 
scope of our discussion here. 

Both Applesoft and DOS use the 
high bit in a unique fashion in their 
respective command and error 
message tables, although the tech- 
nique is not exclusive with the 
Apple. By setting the eighth bit "on" 
in the last character of a command 
name, we have provided a means 
for the appropriate operating sys- 
tem to recognize the end of a com- 
mand name or error message. This 
makes no difference to the monitor, 
since the monitor will automatically 


Standard ASCII 

The standard ASCII character set 
is composed of four sub-groups of 
32 characters each, as shown in the 
following table: 


Sub-Group 

Hex 

Values 

Decimal 

Values 

1 Control 

00-1 F 

0-31 

II Numeric and special 

20-3F 

32-63 

III Upper Case Alpha 

40-5 F 

64-95 

IV Lower Case Alpha* 

60-7F 

96-127 


*The Apple video display will convert these 
to group II, unless you use one of the popu- 
lar lower case adapters. 


By using the CHR$(n) function in 
Applesoft, you can print any of the 
96 characters of Apple's character 
set. (Values from 0 to 31 will not 
print, since these are the control 
characters.) This is one way in 
which you can access those few 
characters that are not available 
directly from Apple's keyboard, 
such as the backslash [ \ ]. In addi- 
tion, although it serves no worth- 
while purpose, you can add 128 to 
any ASCII value, and using the 
CHR$ function, print the same 
character out. The following one- 
liner will demonstrate this by print- 
ing out two identical character sets: 


FOR I = 0 TO 255: PRINT CHR$(I); 
: NEXT 


Video Display 

The ASCII screen character set is 
a horse of a different pigment. In 
designing the video display, Apple 
wanted to provide a means to dis- 
play characters in either black on 
white or white on black, and in ad- 
dition, to be able to switch rapidly 
from one mode to the other. These 
modes, in Applesoft, are named IN- 
VERSE, NORMAL and FLASH, re- 
spectively. In Integer Basic, they 
may be implemented with CALL 
-384, CALL -380, and POKE 50, 1 27, 
respectively. 
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Here is where the high bit bit 
comes in. We have started with the 
128 characters of the regular ASCII 
set, none of which use the high bit, 
so by turning the high bit on, we 
have instantly created an additional 
128 characters, or at least char- 
acters that the monitor can recog- 
nize as being non-standard. But this 
gives us only one alternate char- 
acter set, and we want to be able to 
display characters in three different 
modes. How can this be resolved? 

First of all, the Apple monitor 
doesn't like (and in fact, can't dis- 
play) lower case characters, so 
there will be no need to provide IN- 
VERSE or FLASH for lower case, 
which reduces our requirements for 
one extra character set to 96. But 2 
times 96 is 192, and we have only 
128 alternate characters to work 
with. What else can we do? 

You're right! The control charac- 
ters. Since they don't print to the 
screen to begin with, we certainly 
don't need the ability to display 
them in INVERSE or FLASH. So let's 
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dump them from our alternatives, 
and we are down to two sets of 64 
characters each, which is just right. 

Since the monitor converts stan- 
dard ASCII to negative ASCII for 
normal display purposes, the nor- 
mal display set uses the values 
$80-$FF [128-255], so our alternate 
sets will be using values from $00- 
$7F [0-127]. You will note that in a 
sense, "holes" have been left in the 
two alternate character sets by the 
removal of control and lower case 
characters, thus the sequence of 
characters used is non-standard. 
Table 7 on Page 15 of the Apple ][ 
reference manual shows the com- 
plete screen display set; the follow- 
ing table outlines the four non- 
standard display groups: 


Group 

Hex 

Values 

Decimal 

Values 

1 Inverse alpha 

00-1 F 

0-31 

II Inverse numeric 

20-3 F 

32-63 

III Flashing alpha 

40-5 F 

64-95 

IV Flashing numeric 

60-7F 

96-127 
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This short Applesoft program will 
print, a character at a time, the en- 
tire display set to a central location 
on your screen, by actually chang- 
ing the contents of memory loca- 
tion 1252. (The video display uses 
memory locations 1024 to 2047.) 


100 FOR 1=0 TO 255 : 
POKE 1252, I : 
FOR J = 1 TO 250 : 
NEXT J,l 


By knowing the screen coordi- 
nates of each memory location, 
characters can be POKEd to any 
part of the screen. 

Lastly, the following program will 
display the entire ASCII screen 
character set to your video display. 


10 REM 

ASCII SCREEN DISPLAY 

BY VAL J GOLDING 

100 H* = * 0123456789ABCDEF 1 * 

110 HOME J HTAB 4J FOR 1=1 TO 
16 1 PRINT • " 9 MID* ( H*t I f 1 ) 

next i poke 34 * 2 

120 HOME t FOR I » 1 TO 161 PRINT 

11 *9 MID* ( H*» I » 1 )! NEXT X POKE 
33 » 32 X POKE 32f4t HOME 
130 INVERSE X FOR I = 0 TO 255 
140 IF I < 17 THEN J = I + 64 
150 IF I > 63 THEN FLASH tJ - I 

160 IF I > 127 THEM NORMAL {J = 

I - 64 

170 IF I > 159 THEN J = I 

180 PRINT CHR$ <J)J" “ftJ = J + 

It NEXT J PRINT t PRINT ■ 

HIT ANY KEY": CALL - 756: TEXT 

190 REM 

NOTE CONTROL CHARACTERS $80-9F 
HILL BE REPRESENTED BY THE 
EQUIVALENT NORMAL CHARACTERS 


SF APPLE CORE 
ANNOUNCES 

“THE BEST OF THE CIDER PRESS 
1980 ” 

An anthology of articles & program listings 
from the SF Apple Core’s newsletter “The 
Cider Press”. Sections range from articles 
for the beginner to a larger section on 
PASCAL. Send your check or money order for 
$10.00 (US), add $2.00 outside of the United 
States to: 

SF APPLE CORE 
1515 Sloat Blvd., Suite 2 
San Francisco, CA 94132 

Name 

Address 

City State 

Zip Country 

The “Best of the Cider Press — 1978-1979” is 
still available for $5.00 


Dealer Inquiries Invited 





SYRERGISTIC 

Software 

Jvmwdb 

GREAT clA PVENTURES 

Great adventure games utilizing the Apple's graphic capabilities. 


ODYSSEY: THE CO M PLEAT APVE NT URE 

Odyssey is the ultimate adventure game for the Apple. Explore 
desolate islands of the dread Sargalo Sea. Learn how to enter 
the deserted castles, tombs, ruins, and other buildings in search 
of their treasures. Use your gold to buy weapons and supplies 
you need for your quest. With enough gold, you can buy a 
ship and set sail. Face pirates, monsters, storms, demon haun- 
ted dungeons, bandits, warlocks, sea serpents, and hundreds of 
other hazards before you try for the ultimate prize, the 
High One's vacant throne. 

Odyssey utilizes the full capabilities of the Apple with its 3 
interlocking programs; detailed and colorful high-res maps, 
sound effects, and varied animation effects. 

Requires 48K and disk. Integer only, $30.00 



DUNGEON CAMPAIGN 


Explore the intricate complexities of a dungeon whose 
four levels are interconnected by stairways and pits. 
The dungeon is populated by numerous dragons, spec- 
tres, serpents, necromancers, dwarfs, elves, and an in- 
credible variety of monsters. The inhabitant's varying 
powers and methods of attack will keep you guessing 
as your party searches the labyrinth for treasure and 
an assortment of useful magical devices. Try to col- 
lect your fortune and escape the dungeon before your 
party is destroyed. 

Requires 32K APPLE and a color display. Cassette 
version is $15.00; Disk version is $17.50. Integer 
or Applesoft. 

WILDERNESS CAMPAIGN 

A surface apventure of even greater variety in which 
you move across the HIRES map of Draconia explor- 
ing ancient ruins, tombs, temples, and castles. Equip- 
ment and weapons can be purchased in village markets. 
Proper equipment will enable you to survive the num- 
erous obstacles and hazards such as crevasses, quick- 
sand, volcanos, avalanches, and hostile inhabitants. As 
you progress, you will gather enough men, weapons, 
and magical assistance to challenge the Great Necro- 
mancer's fortress itself. 

Requires 48K. Cassette version is $17.50; Disk version 
is $20.00. Integer or Applesoft. 

Get both Apventures on 1 disk for $32.50. 


DOOM CAVERN 

Doom Cavern is a high-resolution graphics version of the classic 
"Dungeon and Dragons" type games. Set up the persona 
(strength, intelligence, charisma, etc.) of your players with dice 
rolls, then venture forth into the dungeons of Hammardoom 
Castle. With perserverance, some luck, and reasoning, you can 
win treasures and survive to explore the dungeon. 

SORCERER'S CHALLENGE 

A high-res duel for supremacy between two mighty sorcerers 
using all their devastating spells. Strategic and tactical plan- 
ning are required to outwit and defeat your opponent. 

Both games available on 1 disk. Requires 48K, Integer only, 

$20.00. 


The high-resolution 
graphics and text 
for these games 
were done using 
our graphics utili- 
ties, HIGHER 
GRAPHICS II 
and HIGHER 
TEXT. Add 
high-resolution 
effects to your 
own programs. 
Each program 
available on disk 
in Integer and 
Applesoft. Each 



program $35.00. 


Available at your local dealer or send check or inquiry to 
SYNERGISTIC SOFTWARE, 5221— 120th Ave. S.E. Bellevue, WA 98006, (206) 226-3216 

WA residents add 5.3% sales tax. 
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PASSING ARGUMENT VALUES 
TO MACHINE LANGUAGE 
SUBROUTINES IN APPLESOFT 

by C. K. Mesztenyi 
Washington Apple Pi 


Applesoft provides input argu- 
ment values to a machine language 
subroutine by POKEing them into 
fixed memory locations prior to the 
CALL statement, and provides re- 
trieval of output values of the 
subroutine by PEEKing into fixed lo- 
cations after the CALL statement. I 
not only find these procedures awk- 
ward, but if these values are in the 
internal registers (A, X, Y) of the 


6502 processor, then I am forced to 
write an interface program in ma- 
chine language to pick up or store 
these values. This become espe- 
cially painful when I only want to 
test out one of the many "useful" 
subroutines published which are in 
the Monitor, Applesoft, interface 
cards, etc. Hopefully, one of these 
days some of the entry points of 
DOS will also be published. 


As a partial remedy to this prob- 
lem, I wrote the following some- 
what general interface program 
which sets up the internal registers 
prior to jumping into any given ma- 
chine language program. The inter- 
face program uses Applesoft sub- 
routines GETBYTC, FRMNUM, 
GETADR, CHKCOM and memory 
address LINUM as published by J. 
Crossley in the March/April 1980 
Apple Orchard. The use of this in- 
terface program from Applesoft is 
by the statement: 


CALL origin, A-expr,X-expr,Y- 
expr, location 

where 

origin = decimal address of the in- 
terface program entry 


3 

4 


6 


7 


8 


%*t*******ttttt*t**tt%t%*t****** 
* * 

* APPLESOFT ARGUMENT INTERFACE * 


* 

* 

* 


BY C* K* MESZTENYI 


WASHINGTON APPLE PI 


* 

* 

* 


* 


* 








10 

* 







11 

* 







12 

LINUM 

EQU 

$50 





13 

FRMNUM 

EQU 

$DD67 





14 

CHKCOM 

EQU 

$IiEBE 





15 

GETBYTC 

EQU 

$E6F5 





16 

GETADR 

EQU 

$E752 





17 

# 







18 

* 







19 


ORG 

$6000 





20 


OBJ 

$6000 





21 

* 

* 



6000 1 

20 

F5 

E6 

23 


JSR 

GETBYTC 

6003* 

8ft 



24 


TXA 


6004 1 

48 



25 


PHA 


6005J 

20 

F5 

E6 

26 


JSR 

GETBYTC 

60081 

8ft 



27 


TXA 


6009: 

48 



28 


PHA 


600A : 

20 

F5 

E6 

29 


JSR 

GETBYTC 

600d: 

8ft 



30 


TXA 


60oe: 

48 



31 


PHA 


600F : 

20 

BE 

DE 

32 


JSR 

CHKCOM 

6012: 

20 

67 

DD 

33 


JSR 

FRMNUM 

6015: 

20 

52 

E7 

34 


JSR 

GETADR 

6018: 

68 



35 


PLA 


6019: 

A8 



36 


TAY 


60ift: 

68 



37 


PLA 


601b: 

ftft 



38 


T AX 


60ic: 

68 



39 


PLA 


60 m: 

6C 

50 

00 

40 


JMP 

(LINUM ) 





41 

* 







42 


SYM 



END ASSEMBLY 

TOTAL ERRORS: 0 

32 BYTES GENERATED THIS ASSEMBLY 
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A-, X-, Y-expr = valid expressions 
which evaluate to single byte 
integers (0<expr<255) to be 
loaded into the registers A, X 
and Y, respectively, 
location = decimal address of the 
machine language subroutine to 
be used with the above input 
values. 


The interface program in assem- 
bly language is shown below. 


Example: 

Assume that the above interface 
program is loaded into memory lo- 
cation $origin = $6000 [origin = 
24576] for this example. (Note that 
you may load it anywhere.) To use 
the Monitor subroutine PRNTAX 
[$F941] to output two bytes in hexa- 
decimal, we have to load the regis- 
ters A and X with these numbers 
(see Reference Manual p. 61). 
$F941 is equivalent to 63809 in 
decimal. Let the two bytes for out- 
put be the values of VI and V2 of 


Applesoft variables. Now the fol- 
lowing Applesoft statements will 
output those values: 


VI = . . . 

V2 = . . . 

CALL 24576, VI ,V2, 0,63809 

The above statements can either be 
part of a program or also can be ex- 
ecuted in immediate mode. Fur- 
thermore, VI and/or V2 in the CALL 
statement can be replaced with the 
appropriate expressions shown 
with dots above it. Since the sub- 
routine PRNTAX does not require 
input in register Y, the correspond- 
ing entry in the CALL statement 
contains a zero which is arbitrary. 

Carrying the interface routine to a 
further conclusion, it is possible to 
enable it using that most underrated 
of Applesoft tokens, the Ampersand 
[&]. The only thing further that need 
be done is to enter a BASIC state- 
ment with three POKEs to set up the 
Ampersand vector, in the form: 


POKE 1013,76 : POKE 1014,0 : 
POKE 1015, ad 


. .... where ad is the decimal starting 
address of the assembly language 
routine divided by 256, provided 
that ad is evenly divisable. 

If we establish the following 
Applesoft variable names: 

A (for Accumulator) 

X (for X-Register) 

Y (for Y-Register) and 
PC (for Program Counter) or other 
name appropriate to the name of 
the routine being called, we can 
pass the arguments in the form: 

&,A,X,Y,PC 

The Applesoft program listing 
provided uses the S. FH. Lam routine 
to put the machine code into mem- 
ory, thus a separate binary load is 
not required. It contains an exam- 
ple use of the interface as indicated 
previously, printing the contents of 
the A and X registers as two hex 
bytes, a simple dec-hex converter. 



c Aristotle's Ripple 

$34.95 48K/Disk/Applesoft 



A computerized tutor for ANY subject, at 
\ ANY level. by Scot Kamins 


• 2 modes of instruction- 
tutor and test. 

• 3 quiz types — fill in, 
multiple choice, and 
matching, including 
alternate answers for 
fill-in questions 

• Stores quizzes on disk 
for fast, easy access. 

• Multi-level learning 
reinforcement. Written by 
a specialist in Computer 
Aided Instruction (CAI). 

• Highly interactive no 
programming knowledge 
necessary. 

• Good for students, home 
study and correspondence 
courses, government and 
ham radio exams, etc. 


$39.95 
48K/DISK 

by Barney Stone Applesoft 

A powerful, easy to use appointment calendar. 


• Includes one-time, weekly, 
monthly, semi-annual and 
annual memos. 

• Will remind you one 
week, two weeks or a 
month in advance to 
prepare for meetings, 
make reservations, buy 
birthday presents, etc. 

• Display or print any day’s 
or week’s reminders. 

• A “perpetual” calendar: 
holds one full year, 
beginning with any month. 

Automatically posts 
birthdays, etc., into new 
months. 

• Knows most major 
holidays. 

• Supports Mt. Hardware 
Apple Clock (not required). 

Calif. Residents Add 6% Sales Tax. No C.O.D. ’s. Add $2.00 for Shipping 
& Handling. Use Check, Money Order, VISA or MASTERCARD. (We 
need expiration date on charge card.) DEALER INQUIRIES INVITED. 
APPLE D u a 



ILIST 
10 REM 

AMPERSAND REGISTER LOADER 

BY C K MES2TENYI & VAL J GOLDING 

Passes arguments to A* X* and Y 
Registers and Program Counter » 
using the Ampersand 


50 GOTO 500 
100 INPUT A»X 
110 & *A»X»Y»AX 

120 GOTO 100 

500 POKE 1013*76* POKE 1014*0! POKE 
1015*96! REM 
Set up Ampersand Vector 


510 AX = 63809! REM 
Set up variable as CALL 
address for PRNTAX 


520 Y = 0 

700 A* = "6000120 F5 E6 8A 48 20 
F5 E6 8A 48 20 F5 E6 8A 48 2 
0 BE DE 20 67 DD 20 52 E7 68 
A8 68 AA 68 6C 50 00 20 ND8 

o7r # 

710 FOR I = 1 TO LEN (At)! POKE 
511 + I* ASC ( MIDt (At* 1*1) 
)_+^ 128 ! NEXT ! POKE 72*0! CALL 

720 GOTO 100! REM 


Above routine b« S H Lam stuffs 
all the machine code in mernors. 


To relocate it* change the POKE 
1015 in Line 500 and the address 
in Line 700 
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AN ENTIRE STAR FLEET FOR $39.95. 

YOU'LL LOVE IT! 



Like some future starship 
admiral hurtling through the vast 
void of hyperspace at speeds 
beyond comprehension, you are 
challenged to a battle for cosmic 
supremacy. 

THE WARP FACTOR the latest 
computer strategy game from SSI, is 
what every space war fan has been 
waiting for - the ability to command 
a star fleet in realistic battle 
simulation against alien vessels. 

It is light years ahead of all 


other "space" games because it 
doesn't just fill your screen with 
pretty pictures and little substance. 
THE WARP FACTOR is a high- 
powered tactical simulation that 
places you squarely in the Captain's 
role, dealing with the critical 
parameters of interstellar battle 
such as sensor and scanner 
readings; energy allocation for 
weapons (phasers, disruptor bolts, 
photon and plasma torpedoes), 
shields, and warp engines; and 
battle damage. 


THE STARSHIPS. With twelve diffe- 
rent starship designs - ranging 
from dreadnoughts and fighters to 
star bases and base stations - 
representing five Galactic Empires, 
you can set up an astronomical 
variety of confrontations against 
another player or the computer. 

Each class of vessels is awarded 
a point value to reflect its relative 
strength so you can assemble fleets 
of comparable power for a balanced 
game. Of course, youF re free to play 
the intrepid hero against seemingly 
hopeless odds -perhaps mere 
fighters against a star base! 

Employing up to ten ships, both 
sides can give individual or fleet 
orders, the latter allowing all your 
ships to execute your commands in 
unison. 

THE COMPUTER aside from being 
the game's perfect administrator and 
referee, also serves as your ever- 
ready, ever-capable nemesis in the 
multiple solitaire scenarios provided: 
The Reman Chase (replete with the 
Cloaking Device, Plasma Torpedoes, 
and Heutral Zone); Attack on Star 
Base; Attack on Base Station; and 
Dogfight 

THE TWO-PLAYER VERSION is 

essentially free- form. With each 
player choosing starships from a 
different Empire, you can create 
scenarios ranging from space skir- 
mishes to a full-scale, all-out star 
war! 

FOR $39.95, THE WARP FACTOR is 
undeniably the most complete and 
detailed simulation of tactical star- 
ship combat yet designed. It comes 
with the 5H" program disc; a 
Starship Operating Manual; 3 Star- 
ship Data Cards; and a Game 
Selection Card - all of which will 
convert your computer into the 
gateway to galactic adventure. 


THE WARP FACTOR™. The Universe Awaits Your Command. 


Credit card holders, if you own an 
Apple® II 48 K (Applesoft ROM) and a 
mini-floppy disc drive, call 800-227- 
1617 ext. 335 (toll free) and charge 
your order to your VISA or MASTER- 
CARD. In California, call 800-772-3545, 
ext 335. 

To order by mail send your check 
to: Strategic Simulations Inc Dept AO, 
465 Fairchild Drive, Suite 108, Moun- 
tain View, CA 94043. 


All our games carry a 14- day 
money- back guarantee. 

While you're at it you can also get our 
other games: 

FOR YOUR APPLE®: 

□ Computer Bismarck: $59.95. 

□ Computer Ambush ( a tactical sim- 
ulation of man-to-man combat in 
WWII): $59.95. 

□ Computer Napoleonics, the Bat- 
tle of Waterloo: $59.95. 


□ Computer Quarterback (a real- 
time strategy football game): $39.95. 

□ Computer Conflict (two modern- 
day tactical warfare simulations 
featuring REBEL FORCE and RED 
ATTACK!): $39.95 

□ Computer Air Combat (a simula- 
tion of air combat in WWII): $59.95. 

FOR YOUR TRS-80®: 

□ Computer Bismarck, 48 K Disc: 
$59.95. 32K Cassette: $49.95. 


Apple is a registered trademark of Apple Computer Inc. 


TRS-80 is a registered trademark of Tandy Corporation. 
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LOW RESOLUTION GRAPHICS 
IN PASCAL 

by Bill Shepard 


I have begun a concerted effort to 
convert all of my BASIC programs 
to Pascal. While the PEEKs and 
POKEs and unstructured GOTO's 
sometimes make the task difficult, I 
believe the result is well worth the 
effort. The resulting software is 
more reliable, runs faster, and is 
considerably easier to enhance. But 
the Pascal System has one missing 
element; it lacks low resolution 
graphics. 

Certain applications are better 
suited for low resolution graphics 
than to high. While the border low 
resolution lines can be simulated 
with multiple high resolution lines, 
one must sacrifice both speed and 


the variety of color. The solution is 
to integrate low resolution capabili- 
ties into Pascal. This has been ac- 
complished and has taken the form 
of a Pascal unit. To complete the 
unit, it was necessary to include the 
important text functions in addition 
to those of graphics. 

To make code conversion as easy 
as possible, the BASIC functions 
were simply reproduced in Pascal. 
For example, to draw a horizontal 
line, BASIC uses the HUN state- 
ment. In the Pascal unit, HUN has 
three parameters which are identi- 
cal to those of BASIC. The following 
table shows the similarities. 


Because of the nearly identical 
presentation of the Pascal proce- 
dures to those of BASIC, a detailed 
functional description of each will 
not be given. A clear presentation is 
contained in the Applesoft Pro- 
gramming Reference Manual. 

My initial programming goal was 
to code the entire unit in Pascal. 
Through the use of POKEs, this was 
certainly possible, but clarity and 
speed of execution would be sacri- 
ficed. In the final designs, Pascal 
code is used exclusively with POKEs 
only being used for the display 
mode changes. To gain a full under- 
standing of the design of the unit, 
the workings of the Apple graphics 
first should be understood. Pages 
12 through 18 of the Apple ][ 
Reference Manual contain this 
information. 

The Pascal variant record and the 
pointer type provide the necessary 
features to simplify the code. First 
the "Plot_ Array" type was defined 
as a packed array of 0..15. This re- 
sults in the ability to directly address 
a nibble (half-byte) without requir- 
ing the inefficiencies associated 
with the typical integer divide and 
mod operations. The "Plot_Type" 
variant record type contains a single 
variable, which is multiply defined 
as an integer, and as a pointer to the 
// Plot_ Array". Thus if the integer 
value is set at 1024 (address of the 
beginning of the first text and low 
resolution page), and the zeroth 
element of the array is referenced, 
the actual location is that of mem- 
ory address 1024. The variable 
"plot _ buffer" is thus a 1024 byte ar- 
ray at address 1 024 and does not re- 
quire additional memory within the 
address space of the procedure. 

With the addressing of the text/ 
graphics page completed by simple 


BASIC 

PASCAL 

PLOT x, y 

Plot (x, y) 

HUN xl, x2 AT y 

HLIN (xl, x2, y) 

VLIN yl, y2 AT x 

VLIN (yl, y2, x) 

SCRN (x, y) 

SCRN (x, y) 

COLOR = 0 to 15 

COLOR : = 0 to 15 

TEXT 

All -Text 

GR 

Mixed 

GR: POKE -16302, 0 

All _ Graphics 

POKE 34, lines 

Top -Margin (lines) 

HOME 

Home 

FLASH 

Flash 

INVERSE 

Inverse 

NORMAL 

Normal 

PRINT; 

Print 

PRINT 

Print- Ln 

HTAB x 

HTAB (x) 

VTAB y 

VTAB (y) 
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{$S + } 


UNIT LOW_RES; 


INTERFACE 

VAR 

color : Integer; 

PROCEDURE Plot (x, y: Integer); 

PROCEDURE HLIN (xl, x2, y: Integer); 

PROCEDURE VLIN (yl, y2, x: Integer); 

FUNCTION SCRN (x, y: Integer): Integer; 

PROCEDURE Normal; 

PROCEDURE Inverse; 

PROCEDURE Flashing; 

PROCEDURE Print__Ch (Ch: Char); 

PROCEDURE Print (line: String); 

PROCEDURE Print__Ln (line: String); 

PROCEDURE HTAB (x: Integer); 

PROCEDURE VTAB (y: Integer); 

PROCEDURE All_Text; 

PROCEDURE All_Graphics; 

PROCEDURE Mixed; 

PROCEDURE Home; 

PROCEDURE Top__Margin (margin: Integer); 

FUNCTION Peek (address: Integer): Integer; 
PROCEDURE Poke (address: Integer; ch: Char); 


subscripting, we can turn our atten- 
tion to the interleaving of the lines 
within the page and the top/bottom 
orientation of the nibbles within the 
graphics byte. Repeated calculation 
of the subscript value is much too 
slow. Therefore, the initialization 
routine constructs a table of base 
addresses for both text and graph- 
ics. The table values represent the 
displacement into the array, given 
any "y" value. Thus addressing be- 
comes indirect, and requires only a 
double subscript resolution. The 
graphics is only slightly more com- 
plicated, with the interleaving of the 
top and bottom nibbles within each 
byte. 

Since the display mode of the 
characters is controlled by the use 
of a non-ASCII character set, it is 
necessary to translate all character 
strings depending on the mode. To 
simplify and speed this process, the 
mode procedures create a 256 byte 
translation table. To use this table, 
the ordinal of the ASCII character is 
used as a subscript into the table. 
The character at this location is the 
new character. Thus character 
translation also becomes a simple 
double subscript resolution. 

The resulting code of this low re- 
solution unit is straightforward and 
relatively fast. It should prove quite 
useful to any one desiring Pascal low 
resolution graphics. 


IMPLEMENTATION 

TYPE 

Plot_Array 

Plot_Type 

RECORD 

CASE Boolean 
OF 

true: (pointer 

false: (Location 

END {CASE}; 

Text_Array 

Text_Type 

RECORD 

CASE Boolean 
OF 

true: (pointer 

false: (location 

END {CASE}; 


= Packed Array [0..2047] OF 0.. 15; 

: ~Plot_Array) ; 

: Integer); 

= Packed Array [0..1023] OF Char; 

: "Text_Array) ; 

: Integer); 
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PROCEDURE Mixed; 
VAR 

y 


PA 

Memory_Type 

RECORD 

CASE Boolean 
OF 

true: (pointer 

false: (location 
END {CASE}; 


plot_buf f er 
text_buf f er 

base_text 
base graphics 
mod e_t able 

null , 
blank 

y> 

top__y , 
cursor__x , 
cur sor_y 


: Integer; 


= Packed Array [0..0] OF Char; 


: ~PA); 

: Integer) ; 


: Plot_Type; 

: Text_Type; 

: Array [0..23] OF Integer; 

: Array [0..47] OF Integer; 

: Packed Array [0. .255] of Char; 


: Char; 


: Integer; 


PROCEDURE Clear (ch: Char); 

BEGIN 

Fill_Char (|,ext_buf f er .pointer^ [ 0], 120, ch) 

Fill_Char ( text_buf f er .pointer^ [128], 120, ch) 
Fill_Char ( text_buf f er .pointer^ [256], 120, ch) 
Fill_Char ( text_buffer .pointer" [384], 120, ch) 
Fill__Char ( text_buffer .pointer^ [512], 120, ch) 
Fill_Char (text_buf f er .pointer^ [640], 120, ch) 
Fill__Char ( text_buf f er .pointer^ [768], 120, ch) 
Fill_Char (text_buffer .pointer^ [896], 120, ch) 
cursor_x := 0; 
cursor_y := 0; 

END {Clear}; 

PROCEDURE Str_I (I: Integer; VAR Item: String); 

VAR 

L : Integer; 

BEGIN 
L := I; 

Str (L, Item) ; 

END {Str_l}; 
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FUNCTION Peek {(address: Integer): Integer}; 


VAR 

byte : Memory_Type ; 

BEGIN 

byte . location := address; 

Peek := Ord (byte . pointer" [0]); 

END {Peek}; 


PROCEDURE Poke {(address: Integer; ch: Char)}; 


VAR 

byte : Memory_Type ; 


BEGIN 

byte . location := address; 
byte .pointer" [0] := ch; 

END {Poke}; 


PROCEDURE All_Text ; 


BEGIN 

Clear (blank) ; 

Poke (-16300, null) 
Poke (-16302, null) 
Poke (-16303, null) 
top_y : = 0 ; 
cursor_x := 0; 
cursor_y := 0; 

END; 


PROCEDURE All_Graphics ; 


BEGIN 

color := 0; 

Poke (-16298, null) 
Poke (-16300, null) 
Poke (-16302, null) 
Poke (-16304, null) 
Clear (null ) ; 
top_y := 0; 
cursor_x := 0; 
cursor y := 0; 

END ; 



CASES NOW AVAILABLE 

• API 01 Apple and Single Disk Drive $109 

• API 02 Apple and Double Disk Drive 119 

• API 03 Apple, 9 inch Monitor and Double Drive 129 

• RS201 TRS-80, Expansion Unit and Double Drive 109 

• RS202 TRS-80 Monitor and Accessories 84 

• P401 Paper Tiger Printer 99 

• P402 Line Printer ll-Centronics 730 89 

• CC90 Matching Attache Case 75 

CASES SOON AVAILABLE 


• RS204 Model III Radio Shack 

• RS205 Radio Shack Color Computer 

• API 04 Apple// with Disk Drives and Silentype 

• API 05 12 inch Monitor and Accessories 


v 


compiner case company 

5650 INDIAN MOUND CT. COLUMBUS, OHIO 43213 (614) 868-9464 
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BEGIN 

color := 0; 

Poke (-16298, null); 

Poke (-16300, null); 

Poke (-16301, null); 

Poke (-16304, null); 

Clear (null) ; 

Fill_Char ( text_buffer .pointer^ [592], 40, blank); 
Fill_Char ( text_buffer . point er A [720], 40, blank); 
Fill_Char ( text_buffer .pointer^ [848], 40, blank); 
Fill__Char ( text_buffer . pointer^ [976], 40, blank); 
top__y 20; 
cursor_x := 0; 
cursor_y := top_y; 

END ; 


PROCEDURE Plot {(x, y: Integer)}; 

BEGIN 

x : = x MOD 40 ; 
y := y MOD 48; 

plot_buffer .pointer^ [base graphics [y] + x + x + (y MOD 2)] := color; 

END {Plot}; 


PROCEDURE KLIN {(xl, x2, y: Integer)}; 


VAR 

base , 

x : Integer; 


BEGIN 

xl := xl 

MOD 

40; 

x2 

:= x2 

MOD 

40; 

y 

:= y 

MOD 

48; 


base := base graphics [y] + (y MOD 2); 
x : = xl + xl ; 

WHILE x <= (x2 + x2) 

DO 

BEGIN 

plot__buffer .pointer^ [base + x] := color; 
x : = x + 2; 

END {WHILE}; 

END {HLIN}; 


PROCEDURE VLIN {(yl, y2, x: Integer)}; 

VAR 

base , 

y : Integer; 
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BEGIN 

x := x MOD 40; 
yl := yl MOD 48; 
y2 := y2 MOD 48; 
base := x + x; 

FOR y := yl TO y2 
DO 

plot_buffer .pointer^ [base graphics [y] + base + (y MOD 2)] := color; 

END {VLIN}; 

FUNCTION, SCRN {(x, y: Integer): Integer}; 

BEGIN 

SCRN := plot_buffer .pointer^ [base graphics [y] + x + x + (y MOD 2)]; 
END {SCRN}; 


PROCEDURE Scroll; 


VAR 


: Integer; 


BEGIN 

FOR y := (top__y + 1) TO 23 
DO 

Move_Lef t ( text_buf f er .pointer' 
text_buf f er .pointer' 


[base_text 
[base text 


Fill_Char ( text_buffer .pointer' 
cursor_x := 0; 
cursor_y := 23; 

END {Scroll}; 


[y] ] 

[y - i]]. 


40); 


[base_text [23]], 40, blank); 


PROCEDURE HTAB {(x: Integer)}; 


BEGIN 

cursor_x := (x - 1) MOD 39; 
END {HTAB}; 


PROCEDURE VTAB { ( y : Integer)}; 


BEGIN 

cursor__y := (y - 1) MOD 23; 
IF cursor__y < top_y 
THEN 

cursor y := top y ; 

END {VTAB}; 


GALAXY SPACE WAR I 


Galaxy Space War 1 (WAR1) is a game of strategy in which the player has complete 
control of his space fleet's tactical maneuvers. Each fleet battles its way toward the 
opponents galaxy in an attempt to destroy it and win the war. WAR1 simulates the 
actual environment encountered in a space war between two galaxies. Optimum use 
is made of Apple's high resolution graphics (HIRES) and colors in displaying the 
twinkling stars universe, the colored ships of each fleet, long range sensors colored 
illuminations, and the alternating blinking colors used in battles between ships. 
Complementing HIRES are the sounds of war produced by Apple’s speaker. 

WAR1 is played between Apple and a player or between two players. You may 
play with total knowledge of each others fleet or only ships sensor knowledge of 
the opponents fleet. Each player builds his starting fleet and adds to it during the 
game. This building process consists of creating the size and shape of each ship, 
positioning it, and then allocating the total amount of energy for each ship. 

During a player’s turn he may dynamcially allocate his ships total energy between 
his screen/detection and attack/move partitions. The percentage of the total energy 
allocated to each partition determines its characteristics. The screen/detection 
partition determines how much energy is in a ship’s screens and the detection sector 
range of its short range sensors. The attack/move determines the amount of energy 
the ship can attack with, its attack sector range, and the number of sectors it can 
move in normal or hyperspace. 

When an enemy ship is detected by short range sensors, it is displayed on the 
universe and a text enemy report appears. The report identifies the ship, its position, 
amount of energy in its screens, probable attack and total energy, a calculated de- 
tection/attack/move range, and size of the ship. Also shown is the number of days 
since you last knew these parameters about the ship. When a ship's long range sensor 
probes indicate the existence of an enemy presence at a sector in space, this sector 
is illuminated on the universe. 

An enemy ship is attacked and destroyed with attack energy. If your attack energy 
breaks through his screens, then his attack energy is reduced by two units of energy 
for every unit you attack with. A text battle report is output after each attack. The 
program maintains your ship’s data and the latest known data about each enemy 
ship. You may show either data in text reports or display the last known enemy posi- 
tions on the universe. You can also get battle predictions between opposing ships. 
The text output calculates the amount of energy required to destroy each ship for 
different energy allocations. 

APPLE® II, 48K, APPLESOFT GALAXY 

ROM CARD, DISK II DOS 3.2 3 DEPT. A03 

WAR1 DISK & MANUAL ...S39.95 P.O. BOX 22072 
(CA residents add 6% sales tax) SAN DIEGO, CA 921 22 
Write or call for more information (714) 452-1072 
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COLOR COMPLIMENTS 
FOR BLACK AND WHITE 

by Tom Jacobsen 
Green Apples 


Apple's color graphics is one of its 
most useful features. Problems crop 
up, however, when graphics pro- 
grams are run on black and white 
monitors. Some color combinations 
are indistinguishable. The following 
charts are offered so that your fu- 
ture programs will work on both 
color and black and white sets. 
Choose a color on the left side. The 

HIGH RES 


0 1 -3,5-7 

1 0,3-4, 7 

2 0,3-4, 7 

3 0-2, 4-6 

4 1-3, 5-7 

5 0,3-4, 7 

6 0,3-4, 7 

7 0-2, 4-6 


numbers to the right are colors that 
will be distinguishable from it on a 
black and white set. 

LOW RES 


0 1-15 

1 0,3,5-7,9-15 

2 0,3,5-7,9-15 

3 0-2,4,7-8,11,13-15 

4 0,3,5-7,9-15 

5 0-2,4,7-8,11,14-15 

6 0-2,4,7-8,11,13-15 

7 0-6,8-10,12,15 

8 0,3,5-7,9-15 

9 0-2,4,7-8,11,13-15 

10 0-2,4,7-8,11,13-15 

11 0-6,8-10,12,15 

12 0-2,4-5,8,11,13-15 

13 0-6,8-10,12,15 

14 0-6,8-10,12,15 

15 0-14 


DLIST 

10 REM 

BL0AD ADDRESS FINDER 
BY UAL J GOLDING 

100 HOME J VTAB 4? INPUT "ENTER 
BINARY FILE NAME TO BL0AD" »F 
ILE$? PRINT CHR$ <4)"BL0AD" 
FILES {MEMSI2E = << PEEK <978 
) + 13) * 256) + 114 

110 G0SUB 200? ST = L0BL0D + HIBL 
0D * 256? MEMSIZE = MEMSI2E - 
18? GOSUB 200 ?LNG * L0BL0D + 
HIBLOD * 256 

120 PRINT ? PRINT "C START ADR= " 

JSTf " 3 CLENGTH= "»LNG»"3"? END 

200 LOBLOD = PEEK < MEMSIZE )?HIBL 

OD = PEEK (MEMSIZE +1)? RETURN 


GREEN 
APPLE BITS 


It is a rare occasion when a fledg- 
ling Apple user group (35 members) 
can publish its first newsletter with 
content suitable for reprint in the 
Orchard. Such is the case with the 
Green Apples-North Central Iowa 
Apple Users Group. Two of their ar- 
ticles appear on this page. 


TUNE 

YOUR APPLE 


by Mark Welty 
Green Apples 


The following information is from 
Mark Welty. The numbers given are 
to be poked for pitch when you are 
using the tone routines of the type 
published in Apple's Red Book (Ref. 
Manual). Anyone having the num- 
bers to poke for the relative dura- 
tions of standard note lengths 
should submit them for a future 
newsletter. 


OCTAVE 


Note 

1st 

2nd 

3rd 

C 

192 

96 

47 

c# 

180 

91 

45 

Db 

180 

91 

45 

D 

171 

86 

42 

D# 

161 

81 

40 

Eb 

161 

81 

40 

E 

153 

76 

37 

F 

144 

72 

35 

F# 

136 

68 

33 

Gb 

136 

68 

33 

G 

129 

64 

31 

G# 

122 

60 

29 

Ab 

122 

60 

29 

A 

115 

57 

27 

A# 

108 

54 

26 

Bb 

108 

54 

26 

B 

102 

50 

24 

C 

96 

47 

23 
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PROCEDURE Normal; 


BEGIN 

FOR i := 0 TO 31 
DO 

mode_table [i] 
FOR i := 32 TO 95 
DO 

mode_table [i] 
FOR i := 96 TO 127 
DO 

mode_table [i] 
END {Normal}; 


Chr (i) ; 

Chr (i + 128) ; 
Chr ( i - 96) ; 


PROCEDURE Inverse; 


BEGIN 

FOR i := 0 TO 31 
DO 

mode_table [i] : 

FOR i := 32 TO 63 
DO 

mode__table [i] : 

FOR i := 64 TO 95 
DO 

mod e_t able [i] : 
FOR i := 96 TO 127 
DO 

mode_table [i] : 

END {Inverse}; 


= Chr (i + 192) ; 
= Chr ( i) ; 

= Chr (i - 64); 

= Chr ( i + 96) ; 


PROCEDURE Flashing; 


BEGIN 

FOR i := 0 TO 31 
DO 



mode_ 

_table 

[i] 

:= Chr 

(i); 


FOR 

i : = 

32 TO 

63 




DO 







mode_ 

_table 

[i] 

:= Chr 

(i + 

64) ; 

FOR 

i : = 

64 TO 

95 




DO 







mode_ 

_table 

[i] 

: = Chr 

(i); 


FOR 

i : = 

96 TO 

127 




DO 







mode_ 

_table 

[ i] 

:= Chr 

(i - 

32) ; 


END {Flashing}; 


KILL 

SURGES 

LIKE 

LIGHTNING! 

AC power line surges are destructive, can cost you 
money, and can’t be prevented. But you can stop 
them from reaching your sensitive electronic equip- 
ment with a Surge Sentry. 

Surge Sentry acts in picoseconds to dissipate up 
to a 1,000,000 W, 100/Li second surge. Triggers at 
10% above nominal peak voltage. Works in parallel 
with the power line. Is easy to install for immediate 
protection. No complicated wiring or special tools 
required. 

Several different models to choose from, including 
an OEM version. Call or write today for a free brochure. 

SGRGG 

xvSGRGRV 

It’ll clean up your AC 



IS1RKS 

"ENTERPRISES, IIVC. 

643 South 6th Street, San Jose, CA 95112 
(408) 288-5565 


DEALER INQUIRIES INVITED 
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PROCEDURE Home; 

VAR 

y : Integer; 

BEGIN 

FOR y := top__y TO 23 
DO 

Fill__Char ( text_buffer .pointer" [base_text [y]], 40, blank); 
cursor_x := 0; 
cursor_y := top__y; 

END {Home } ; 

PROCEDURE Pr int_Ch { ( ch : Char)}; 

BEGIN 

text_buffer .pointer" [base_text [cursor_y] + cursor_x] := 

mode__table [Ord (ch)]; 

IF cursor__x < 39 
THEN 

cursor_x := cursor_x + 1 
ELSE 
BEGIN 

IF cursor y < 23 
THEN 
BEGIN 

cursor_x := 0; 

cursor__y := cursor_y + 1; 

END {THEN} 

ELSE 

Scroll ; 

END {ELSE}; 

END {Print_Ch}; 


PROCEDURE Print {(line: String)}; 

VAR 

index : Integer; 

BEGIN 

FOR index := 1 TO Length (line) 

DO 

Print__Ch (line [index]); 

END {Print}; 

PROCEDURE Print__Ln {(line: String)}; 

VAR 

index : Integer; 

BEGIN 

FOR index := 1 TO Length (line) 

DO 

Print_Ch (line [index]); 

WHILE cursor__x <> 0 
DO 

Print_Ch (' '); 

END {Print_Ln}; 




— 

Model V1000 


Out For You. 


Eight Inch Floppy Disk Drive Subsystem Model V1000 

The V1000, Vista’s sophisticated new disk drive subsystem, sets 
new standards for ease of access and use. Its innovative design 
permits disk drives to be mounted or removed quickly and easily for 
system reconfiguration or servicing. 

Features: 

• Deluxe chassis with internal slide allows easy access. 

• Storage capacity from 250 kilobytes to 2.5 megabytes. 


• Desk or rack mountable. 

• Accomodates both single-sided and double-sided drives. 

• Industrial quality cabinet with die cast front bezel. 

• Drives pull out for easy service and maintenance. 

Prices: 

Cabinet with (2) single sided drives w/power supply . 
Cabinet with (2) double sided drives w/power supply 
Cabinet (only) 


$1595.00 
$2295.00 
$ 395.00 



Vista’s Line of High Performance, High Reliability 
Products also Includes these Advanced Components 


Daisy Wheel Printer Model V300 
Features: 

• 96-character proportional, bi-directional printing 

• Interface - Parallel or RS232-C option 

Prices: 

V300-25cps $1895.00 

V300-45cps $2195.00 

Minifloppy Disk System, Model V200 
Features: 

• Storage capacity from 200K bytes to 1.2 megabytes 

• Compatible with industry standard S100 main- 
frames. 

• System software - Vista CP/M™ VOS Disk 
Operating System and Basic - E compiler. 

Prices: 

Starting as low as $695.00 
V200-Exidy version $1199.00 



Vista Computer Company 1317 E. Edinger Avenue • Santa Ana, CA. 92705 • (714) 953-0523 
Dealer Inquiries Call Toll Free (800) 854-8017 


™ is a registered trademark of Digital Research 
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PROCEDURE Top_Margin {(margin: Integer)}; 


BEGIN 

top__y := margin MOD 24; 
END {Top_Mar g in } ; 


BEGIN {Low_Res Initialization} 
null := Chr (0); 
blank := Chr (Ord (' ') + 128); 
plot_buf f er . locat ion := 1024; 
text__buff er . location := 1024; 
top__y := 0; 
cursor_x := 0; 
cursor_y := 0; 

FOR y := 0 TO 23 

DO 

BEGIN 

base_text [y] := (128 * (y MOD 8)) + (40 * (y div 8)); 
base graphics [2 * y] := 2 * base_text [y] ; 
base^raphics [(2 * y) + 1] := base ^graphics [2 * y] ; 

END {FOR}; 

FOR i := 128 TO 255 


DO 

mode_table [i] := Chr (i); 

Normal ; 

END {Initialize}. 


DEPRECIATION 

PROGRAM 

★ 5 DEPRECIATION RATES 

★ UP TO 99 YR TERM 

★ RECORDS UP TO 600 ITEMS ON DISK 

★ UPT0$1 MILLION FOR EACH ITEM 

★ REPORTS EACH MONTH, QUARTER, OR 
ANNUALLY 

★ BONUS DEPR., INVESTMENT CREDIT 

★ PRO-RATES DEPRECIATION 

★ UPDATE RECORDS EACH YEAR 

★ EQUIPMENT INVENTORY 

★ FISCAL YEAR BASED 

★ CONVERT METHODS ANY TIME 

★ AN ACCOUNTANTS DREAM 

APPLESOFT 32KMIN $225.00 

HANDBOOK $5.00 



VISA & M/C USERS -CALL 
509 - 943-9004 


MONEYDISK 
P. O. Box 1531 
RICHLAND, WA 99352 



APPLE IS A REGISTERED TRADEMARK 
OF APPLE COMPUTER INC. 

WA Residents, add 5% sales tax 


DEALER INQUIRIES INVITED 



2 Games, Book & 
Command Chart $16. 


APPLE USERS ! Here’s a special 4-item offer from Beagle Bros.! 

★ FIRST. OUR APPLE COMMAND CHART! A heavy-duty 11x17 listing of EVERY 
Applesoft, Integer and DOS Command AND its function. Indispehsable to any 
Apple user. Experiment with commands you never knew existed! 

PLUS our 36-pg APPLE TIP BOOK of tricks, listings and articles on Customiz- 
ing your Apple; Printing “unprintable” characters; Fixing garbaged program 
lines; Converting languages; Entering machine code . . . B Bros. Catalog too! 

★ ★ TWO GAMESJOOJ In Applesoft and Integer Basic! 



Game #1: TEXTTRAIN! You keyboard control a text- format ' freight train” on your Apple video layout! 
Real-time switching & coupling simulations! Race the on-screen clock & avoid a game-ending derail! One or more 
players test their skills, strategically assembling a user-defined series of computer freight cars! A fascinating 
demonstration of the versatility of your Apple! ($16, Winter Catalog) 

Game #2: SUB SEARCH! Your assignment: Find a gang of invisible enemy subs on your Apple color 
graphics scope before your oxygen & fuel run out. Use your deep-sea scanner switch & video tracer to watch 
for blips & clues to each sub’s location! ($12, Winter Catalog) 

TextTrain&Sub Search are 2 more machine language-enhanced winners from 
Beagle Bros.! Designed & programmed exclusively for the best Micro there is! 

| H H |H H (Use this coupon or sheet) |^| IH Hi IHHH IB 


r Rush TextTrain, Sub Search, the Apple Tip Book & Com mand Chart! 

■ □ DISK $16.00 (BOTH Applesoft AND Integer) 
j| □ CASSETTE $16.00 (SPECIFY Applesoft OR lnteger)| 


All Shipped First Class] 

within 24 hours! 


j PLEASE ADD $1.00 for First Class Shipping and Handling. 

I NAME$= 

I ADDR$= 


°a 


. Amt. Enclosed=$_ 


(Cal. residents, add 6% tax) 


| CITY$=_ 

VISA/MAST ERCARD, include ACCOUNT NO., EXP. DATE & SIGNATURE. 





I Mail to: 4315 Sierra Vista / San Diego, CA 92103 i 
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3LIST 

10 REM 

PROPER 

PRINTER 

PROTOCOL 

BY VAL J GOLDING 
20 REM 


WE SUGGEST THE FOLLOWING AS A 
STANDARD BASIC PRINTER CALL 
SUBROUTINE 


100 CALL - 936 i PRINT "ENTER PR 
INTER SLOT OR BINARY DRIVER 
CALL CO DISPLAYS TO S 

GREEN 3" ♦ INPUT " "JPR 
110 IF NOT PR THEN RETURN 
120 IF PR > 7 THEN CALL PRt RETURN 


130 PRINT DfJ“PR#"JPRi RETURN 


IMPROVE 
Your Data Entry! 

With ABT Apple' Peripherals 

KeyPad™ Used for entering nu- 
meric data, it is essential to 
business applications. It features 
an accountants keyboard lay- 
out and permits a relaxed arm 
position. 

BarWand™ compatible 
with U.P.C., Paperbyte**, 
LabelCode and others. It sells 
Point-of-Sale inventory 
systems, but is also useful in 
libraries, factories and for 
security. 

SoftKey™ 1 A great programmer’s 
aid, this features single key string 
entry and also customized key 
functions. 

= — A vail able from your local Apple * Dealer 

1==^ ADVANCED BUSINESS 
— m TECHNOLOGY, INC. 

12333 Saratoga Sunnyvale Road, Saratoga, California 95070 408/446-2013 






‘Trademark of APPLE COMPUTER, INC. “Trademark of McGRAW-HILL 


THUNDERCLOCK PLUS’ 


PUT TIME AND REMOTE 
CONTROL IN YOUR APPLE II 


The THUNDERCLOCK PLUS is two peripheral systems on one card for your APPLE II OR II PLUS. An accurate, reliable, 
real-time clock/calendar and an interface for the popular BSR X-10 Home Control System. 

The THUNDERCLOCK clock/calendar makes accurate time and date available to your programs: month, date, day-of-week, 
hour, minute, and second, in any of four software selectable formats. On-board batteries keep your THUNDERCLOCK 
running when your APPLE II is turned off - for up to four years before battery replacement. \ ... 

On-card IK firmware makes reading or setting the time easy from APPLESOFT or INTEGER 

BASIC, PASCAL, or assembly language programs. And it provides software selectable Jjp , Jjfc: Im 

interrupts at any of three rates: 64, 256, or 2048 interrupts /second. 1| 

THE PLUS 1 MV# I 


Add THUNDERW ARE'S X-10 ULTRASONIC INTERFACE OPTION to your *7 

THUNDERCLOCK and your programs can send all 22 BSR X-10 commands so you can J||L. 

remotely control lights and appliances. A full 128 dim/bright levels. And a powerful disk 

software package! The THUNDER WARE SCHEDULER software lets you create schedules to 

control lights, appliances, security systems, or almost any other electrical device. The software ' 

includes: SCUTIL- the SCHEDULER utility that lets you make or change a schedule, and SCHED- executes your schedules in 

real-time using the THUNDERCLOCK. SCHED runs in the ’background’ so you can run other programs in the ’foreground’. 

The THUNDERCLOCK PLUS is a SYSTEM for your APPLE II. Supported by intelligent, easy to use firmware, a powerful 
software package, and good documentation! 

Available through your dealer. THU ndeIc1ockplu^™ $139 „ . , . 

u£™r Card With “ and ™U ^KcloCK^Zt 

user s manual 



•••" irt c « ,,s£3' 

^ !H ^; >- f I 
■ £ ' 


BSR X-10 is a trademark of BSR (USA) LTD. 

APPLE II is a trademark of APPLE COMPUTER, INC 


X-10 INTERFACE OPTION $49 

BSR X-10 Ultrasonic interface, disk with 
SCHEDULER SOFTWARE & demos, and 
user's manual 

PASCAL SOFTWARE $29 

Disk with PASCAL interface for clock and 
X-10 interface, and user's guide 
MANUALS ONLY, each $5 

California residents add 6% sales tax 


If your dealer doesn't carry the 
THUNDERCLOCK PLUS: 

ORDER TOLL FREE (VISA/MC) CALL: 
800-227-6204 EXT 307 (Outside California) 
800-632-2131 EXT 307 (California Only) 

OR WRITE TO: 

THUNDERWARE INCORPORATED 
P.O. Box 13322, Oakland, CA 94661 
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SINGLE DRIVE COPY.3 

by Steve Adams 
Call -A. P.PL.E. 


Single Drive Copy is the final ver- 
sion of a program I first completed 
in August 1979. At that time, Apple 
Computer's only copy program re- 
quired two disk drives, and al- 
though several user group newslet- 
ters had dropped a few hints on the 
use of RWTS, no one had written a 
"public domain" program to allow 
copying a diskette using a single 
drive. 

The original program copied a 
diskette by reading as many of the 
diskette's 455 sectors into memory 
as the computer would hold, and 
then dumped them onto the new 
diskette. Starting at Track 0, Sector 
0, and using a simple nested loop, 
the program copied a diskette in 
four passes. 

Although the program was effec- 
tive, it wasted time by copying un- 
used sectors. Some of these would 
generate read errors, causing the 
disk drive to emit obnoxious grind- 
ing noises in protest. It was written 
in Integer Basic for DOS 3.2 
systems. 

About a year later, I got rid of the 
nested loop and replaced it with a 
routine that would "read" the Vol- 
ume Table of Contents (VTOC) to 
find which sectors were in use. The 
program then copied only those 
sectors, reducing copying time and 
silencing the drive. 

The final (and last) version of the 
program now includes a method of 
determining which version of DOS 
is in use, thereby allowing anyone 
with a Disk II to use it without modi- 
fication. It isn't the fastest program 
available, since I haven't learned 
machine language yet, but it works 
and it's free. Here's how it works: 

Line 0 initializes variables. Due to 
the nature of the program, this is 


necessary so the end-of-variables 
pointer (CV) doesn't move upwards 
in memory and wipe out other data. 
Line 1030 does a quick check of 
memory size by PEEKing memory 
location 77 (77 = $4D, the hi-order 
byte of the HIMEM pointer) and de- 
termining where in memory the 
IOB starts. Actually, variable "IOB" 
is equal to one byte below the IOB 
so that I could use the "IOB+" 
values in the RWTS section of the 
DOS Manual. 

Since using RWTS from a pro- 
gram requires a controlling subrou- 
tine, line 1050 loads the subroutine 
into Page 0. See page 94 of the DOS 
Manual for an explanation. Note 
the POKE for location 1 : for a 48K 
machine the value for "IOB" is 
greater than 32767, hence negative; 
for a 32K machine "IOB" is less than 
32767. This calculation compen- 
sates for these different memory 
configurations. Using the RWTS 
from where it normally resides, 
rather than inserting it into the pro- 
gram, merely shows that it can be 
done; whether it's "better" to do it 
this way is probably debatable. But 
then, figuring out how to do it 
taught me something. 

Lines 1065 and 1070 transfer the 
entire VTOC into memory starting 
at $02D0 (720 decimal). This saves 
disk access time later in the pro- 
gram when the VTOC is "decoded" 
to determine in-use sectors. See 
page 96 of the DOS Manual for an 
explanation of the variables in line 
1065. Using memory below 
LOMEM frees more RAM for use by 
the program. That portion of mem- 
ory now containing the track bit 
maps ($0308-$0393) is unused by 
both DOS and the Monitor. 

"BITMAP" is the location of the 


first track bit map, that of Track $0. 
Line 1080 also determines which 
version of DOS is in use by reading 
byte $2 of the VTOC. If this value is 
$F, DOS 3.3 is resident; if $C, DOS 
3.2. The variable "VER," therefore, 
equals the number of sectors per 
track. 

Line 2010 defines the variable 
"TBL," the pointer to the start of the 
memory area in which the program 
stores the names of in-use sectors. 
This routine places the start of the 
table at one byte above the "end of 
variables" pointer. "PTR" is the run- 
ning pointer to the next location to 
store these names and is initially set 
to the beginning of the table. 

Line 2020 is just a gentle reminder 
to not bother your Apple while 
he/she is thinking (my Apple 
answers to the name of "Louis," but 
yours may not share the gender). 

The next section of the program 
(lines 2040-3030) decodes the track 
bit maps to determine which sec- 
tors on the original diskette are in 
use. Refer to 'Track Bit Maps" in the 
DOS Manual (page 134) for an in- 
depth explanation. Starting at byte 
$38 of the VTOC ("BITMAP"), the 
program looks at successive pairs of 
bytes. If the first byte of the pair 
contains $FF (255) then sectors 
$8-$F ($5-$C for DOS 3.2) are 
empty. If so, the program reduces 
"SEC" to the highest sector value 
coded in the second byte of the 
track bit map and continues. If not, 
it jumps to line 2070 and converts 
the value of that first byte to binary, 
bit by bit. As each binary bit is con- 
verted, the subroutine at line 3020 
builds the table; if a bit is 0, that 
track and sector contain informa- 
tion, and those values are POKEd 
into the table. If not, SEC is decre- 
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merited and the program checks 
the next bit of the pair of bytes. 

Line 2060 performs a function 
similar to that of 2050, only for the 
second byte of the pair in each 
track bit map. Once all the track bit 
maps have been decoded, the pro- 
gram jumps to the copy loop. 

Line 4010 recalls the variable 
"PTR" which is now equal to one 
byte above the upper end of the 
table we just created; it is at this 
location that the program starts 
dumping data from the diskette into 
memory. This line also POKEs this 
initial value into applicable places 
in the IOB. 

In line 4020, the variable "REPS" is 
set equal to the number of 255-byte 
blocks of memory between the top 
of the table and the start of the pro- 
gram. With a completely full disk- 
ette, a 48K machine will hold 127 
sectors. Therefore, this program will 
copy a completely full 16-sector 
diskette in five passes, and a 13-sec- 
tor diskette in four. 

The remainder of the copy loop 
alternately reads and writes data. 
Note the redefinition of the variable 
"PTR" in line 4030; during the read 
process, "PTR" steps upwards 
through the table, allowing line 
4040 to read values of used track 
and sector combinations from the 
table. For each such pair of values, 


the hi-order location of the data 
buffer is POKEd into the IOB. 

Line 4050 CALLs RWTS. Line 
4060 updates the location of the 
data buffer and increments "PTR." If 
PTR has not yet reached the end of 
the table (which it won't do until the 
last of the track and sector combi- 
nations has been loaded into mem- 
ory), another sector is dumped into 
memory. 

When Apple's memory is full (exit 
of the REP loop), line 4090 prompts 
the user to switch diskettes. After 
this is done, the program repeats 
the REP loop, only this time in a 
"write" mode. The "OLDPTR-PTR" 
switches in lines 4030 and 4110 
keep track of where in the table you 
left off at during the last read 
process. 

Note line 4060 one more time. 
Once the program reads the last 
track and sector pair from the table, 
the program directs a diskette 
switch (if CMD=1); if the program 
had been in a "write" mode 
(CMD = 2), then you are finished. 
The program jumps to line 4070 
and ENDS. 

I tried to leave the structu re of the 
program in as much of a "top-down" 
appearance as possible, mainly to 
make the program easy to under- 
stand. It could probably be made to 
run faster, but I was not concerned 


with speed of execution. 

A couple of notes. If you have 
manually changed HIMEM to some- 
thing other than normal (that set by 
Apple upon DOS boot-up), the pro- 
gram will not be able to find the 
IOB and strange things will happen; 
my Apple started playing music. If 
you try to copy onto a write-pro- 
tected diskette, the program will 
not report any errors; it will whiz 
away to completion (you will of 
course switch diskettes on com- 
mand). When you try to check your 
"work" by CATALOGing the new 
diskette, you will not get the ex- 
pected results and think the pro- 
gram doesn't work. This caused me 
an hour or so of fruitless bug-chas- 
ing while I was writing the program. 

This program is written in Integer 
Basic; converting it to work under 
Applesoft should be fairly straight- 
forward. Perhaps a reader will do 
so, and submit it. 

One last caution: until you are ab- 
solutely sure you have keyed in the 
program correctly, cover the write- 
protect cutout on your original 
diskette. This will save you from 
wiping out a valuable diskette due 
to program errors. It'll also help me 
sleep better. I would appreciate any 
suggestions for improvement to this 
program. 


Integer BASIC 


O A=B=PTR=LOC=RWTS= I BTRK= I BSEC T= 

I BBUFP=REP=REPS=CMD=TBL= I OB= 
TRK=SEC=VER=BYTE 1 =BYTE2=OLDPTR= 
B I TMAP=BUFLO=BUFH I = I B VOL= I BCMD= 
O 


1 O REM *************************** 
20 REM * * 

30 REM * SINGLE DRIVE COPY. 3 * 

40 REM * * 

50 REM *************************** 
60 REM * * 

70 REM * STEVE ADAMS * 

80 REM * RFD #1, BOX 432 * 

90 REM * PLATTSBURGH, NY 12901 * 

100 REM * (5i8> 561-8100 * 

110 REM * * 


120 REM *************************** 
130 REM 


lOOO TEXT : ALL -936s VTAB 5: TAB 

11: PRINT "SINGLE DRIVE COPY. 3“ 

: PRINT : PRINT : TAB 13: PRINT 
"BY STEVE ADAMS" 

1010 VTAB 20: PRINT "INSERT THE DISKE 
TTE YOU WISH TO COPY ANDHIT RETU 
RN TO BEGIN.": GOSUB 5010 

1020 REM 

1021 REM *** FIND THE IOB *** 


1022 REM 

1030 A= PEEK (77): IF A >94 THEN 

A=A— 256: IOB='A+33) *256+231 

1 040 REM 

1041 REM *** LOAD CONTROLLING *** 

1042 REM *** SUBROUTINE IN *** 

1043 REM *** PAGE O *** 

1044 REM 
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1050 POKE 0,169: POKE l,I0B/256+ 

255# ( I 0B< O ) : POKE 2, 160: POKE 
3,232: POKE 4,32: POKE 5,217 
: POKE 6,3: POKE 7,96 

1060 REM 

1061 REM ### LOAD THE VTOC INTO ### 

1062 REM ### MEMORY STARTING #*# 

1063 REM ### AT *0200 ### 

1064 REM 

1 065 I BVOL= I QB+4 : I BTRK= I OB+5 : I BSECT= 
IOB+6: IBBUFP=IQB+10: IBCMD=IOB+ 
13 

1070 POKE I B VOL , O : POKE IBTRK, 17 

: POKE I BSECT , O : POKE IBBUFP- 
1,208: POKE I BBUFP, 2: POKE 
IBCMD, 1: CALL RWTS 

1080 B I TMAF‘=776 : VER= PEEK (722) + 

1 

2000 REM 

2001 REM ### THE TABLE STARTS ### 

2002 REM ### AT "TBL" ### 

2003 REM 

2010 TBL= PEEK (204)+ PEEK (205) 
#256+1 : PTR=TBL: TRK=0 

2020 VTAB 10: TAB 15: PRINT " 1 7 M THI 
NKING" 


2030 

REM 





2031 

REM 

*#* 

READ 

"BIT MAPS" IN 


2032 

REM 

*** 

THE 

VTOC AND CON- 


2033 

2034 

REM 

REM 

*** 

VERT 

TO BINARY 

##* 


2040 FOR TRK=0 TO 34 : BYTE 1 =B I TMAP+ 
TRK*4: BYTE2=BYTE1+1 : SEC=VER- 
1 

2050 A= PEEK (BYTE1 ) : IF A#255 THEN 

2070: SEC=VER— 9 

2060 A= PEEK (BYTE2) : IF A=248 AND 

VER=13 OR A=255 AND VER=16 THEN 
2100 

2070 B=A/128: A=A— B# 128: GOSUB 3020 
: B=A/ 64 : A=A-B#64 : GOSUB 3020 
:B=A/32: A=A-B*32: GOSUB 3020 
: B=A/ 16: A=A— B# 16: GOSUB 3020 
: B=A / 8 : A=A— B # 8 : GOSUB 3020 

2080 IF SECCO AND VER=13 THEN 2100 


2090 B=A/4: A=A-B*4: GOSUB 3020: B= 
A/2: A=A— B#2: GOSUB 3020: B=A: 
GOSUB 3020 

2095 IF SEC=7 AND VER=16 OR VER= 
13 THEN 2060 

2100 NEXT TRK: GOTO 4010 
3000 REM 


3001 

REM 

**# 

IF THE TRACK BIT 

*** 

3002 

REM 

*** 

MAP INDICATES AN 

*** 

3003 

REM 

*** 

IN-USE SECTOR, 

#** 

3004 

REM 

*** 

POKE TRK SEC 

*** 

3005 

REM 

*** 

INTO THE TABLE 


3006 

REM 

*** 

STARTING AT "TBL" 

*** 

3007 

REM 




3020 

IF B 

THEN 

3030: POKE PTR, TRK: 


POKE PTR+ 1 , SEC : PTR=PTR+2 


3030 

SEC= 

SEC-1 

: RETURN 


4000 

REM 




4001 

REM 

###* COPY #### 


4002 

REM 




4010 

BUFLO= ( PTR ) MOD 256 : BUFH I = 

( 


PTR) 7256: POKE I BBUFP- 1, BUFLO: 
POKE I BBUFP , BUFH I 

4020 REPS= PEEK (203) -BUFH I- ( PEEK 
(202) < BUFLO) : OLDPTR-TBL : TBL= 
PTR 

4030 FOR CMD=1 TO 2: CALL -936: IF 

CMD=1 THEN PRINT "READING": 

IF CMD=2 THEN PRINT "WRITING" 
: POKE IBCMD, CMD: LOC=BUFHI : 
PTR=OLDPTR 

4040 FOR REP= 1 TO REPS: POKE IBTRK, 
PEEK (PTR): POKE I BSECT, PEEK 
( PTR+ 1 ) : POKE I BBUFP , LOC 

4045 VTAB 3: PRINT "TRACK="; PEEK 

( I BTRK ) ; : TAB 1 2 : PR I NT " SEC= “ 
; PEEK ( I BSECT ) ; 11 ” 

4050 CALL RWTS 


4060 L0C=L0C+1 : PTR— PTR+2: IF PTR# 

TBL THEN 4080 

4070 IF CMD=1 THEN 4090: CALL -936 
: PRINT "FINISHED": END 

4080 NEXT REP 

4090 FOR A= 1 TO 1000: NEXT A; CALL 
-936: VTAB 5: PRINT "INSERT 
THE 52 IF CMD=1 THEN PRINT 
"DUPLICATE"; 

4100 IF CMD=2 THEN PRINT "ORIGINAL" 
PRINT " AND HIT RETURN": 
GOSUB 5010 

4110 NEXT CMD:QLDPTR=PTR: GOTO 4030 


5000 REM 

5001 REM ### WAIT FOR 7 RETURN 7 ### 

5002 REM 

5010 POKE -16368,0 

5020 IF PEEK (-16384) #14 i THEN 5020 
: POKE -16368,0: CALL -936: 
RETURN 
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UtiKiliiim 


PRODISK 


Programma International Inc, 
2908 No. Naomi Street 
Burbank, CA 91504 
(213) 954-0240 


le II and Apple DOS are trademarks of Apple Computer, Inc, 



Mountain Computer 

can now 

EXPAND 

Your Apple II Peripheral Capacity 

EXPANSION CHASSIS 


Quality You Expect 

Eight more slots for your Apple! Now you 
can bank-select eight more peripheral slots 
with immediate or deferred software 
commands— like having up to 15 peripheral 
cards “on line”— or use the Select/Deselect 
switch mounted on the front panel. 
Expansion Chassis’ heavy-duty power 
supply is primarily for peripherals, without 
the heavy demand of motherboard support 
chips required in your Apple. This means 
much more power is available for peri- 
pherals than in your Apple itself! If you’ve 
run out of room in your Apple— Expansion 
Chassis is your answer. Drop by your Apple 
dealer for a demonstration, or contact 
Mountain Computer for the location of 
the dealer nearest you. 


Performance You Demand 

• Eight mirror image I/O slots of the Apple 

• Fully buffered, bi-directional data lines 

• Apple II compatible interface card 

• Dual selection capability; hardware or 
software 

• Immediate or deferred selection in 
software mode 

• From BASIC, a single POKE command 
turns the chassis ON or OFF 

• Compatible with all software 

• Dedicated power supply with 
approved power transformer 

M Mountain Computer 

H INCORPORATED* 

300 Harvey West Blvd., Santa Cruz, CA 95060 

(408) 429-8600 TWX 910 598-4504 
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